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ABSTRACT 


THE MNCDO DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED 

TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE. 

ADDITIONAL ROUTINES ARE PROVIDED TO VERIFY NON-DIAGNOSIBLE SECTIONS. 
TOTAL PROGRAM CONTROL IS ae gt Na | THRU THE CONSOLE TERMINAL 
VIA THE ODT/CONSOLE MICROCODE AND THE PROVISIONS OF SECTION 5. 


REQUIREMENTS 


EQUIPMENT 

1. PDP11/03 COMPUTER OR LSI-11_PROCESSOR 

2. DLV11 WITH I/0 TERMINAL (LA36, VT100, ETC.) 
3. MNCDO (DIGITAL OUT) OPTION 

STORAGE 

THE PROGRAM USES THE LOWER 4K OF MEMORY. 


LOADING PROCEDURE <XXDP> 


ENSURE THAT THE DIAGNOSTIC LOAD MEDIA IS INSTALLED IN DRIVE 0. 
BOOT THE MEDIA BY TYPEING ont at * IF IN THE ODT MICRO-CODE STATE 
OR CYCLING THE POWER ‘ON-OFF’ SWITCH. 

UPON SUCCESSFUL BOOTING OF THE TOAD MEDIA, THE XXDP MONITOR 
ge dh oy ITSELF AND INFORM THE OPERATOR OF THE OPERATING 


HAT MAYBE SELECTED. 
THE OPERATOR SHOULD TYPE "R VMNE??* FOLLOWED BY A ‘RETURN’’ 
THE XXDP MONITOR WILL LOAD THE PROGRAM INTO MEMORY AND START 
THE PROGRAM AT LOCATION 200. 


STARTING PROCEDURE 


THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 

THE PROGRAM WILL NOW ASK FOR AN INITIAL SWITCH REGISTER 

VALUE TO BE STORED IN THE SOFTWARE SWITCH REGISTER. 

THE PROGRAM WILL NOW DISPLAY THE MENU OF TEST OR LOOPS AVAILABLE. 

THE OPERATOR SELECTS THE TESTS ” TYPING THE SELECTED CHARACTER FOLLOWED 
BY DEPRESSING THEA ‘RETURN’’ KEY 


PROGRAM START 
STARTING ADDRESS OF THE PROGRAM 


RESTART ADDRESS OF THE PROGRAM 
STARTING ADDRESS FOR THE OPTION TESTER. 





SOFTWARE SWITCH REGISTER 


FUNCTION 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT SIZING THE NUMBER OF MNCDO'S 
INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR <7-0> 


THE TEST OR LOOP MAYBE STOPPED BY TYPING THE ‘‘CONTROL & C"' 
KEYS. THIS OPERATION WILL STOP THE PROGRAM AND ENABLE 

THE OPERATOR TO SELECT DIFFERENT PROGRAM COMMANDS. 

THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL & G* KEYS. THIS 

KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT re ig a REGISTER DATA TERMINATED 


ODT MODE HAS BEEN ENTERED BECAUSE OF AN 
ERROR CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 
*P* (CONTINUE). 
IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
"CONTROL & G OR C* COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE 
BY THE PROGRAM. 


ERROR REPORTING 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 


UNIT NUMBER 

LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
MNCDO BUS REG ADDRESS OF CONCERNED OPERATION 
DATA THAT WAS EXPECTED 

DATA THAT WAS RECEIVED 


*ALWAYS REPORTED 





MISCELLANEOUS 


MNCDO BUS ADDRESS MODIFICATION 


MODIFY LOCATION ‘S$8ASE" (LOC. 1244) IF BASE BUS ADDRESS IS NOT 171260. 
MODIFY LOCATIN "SVECT1" (LOC. 1240) IF THE INTERRUPT VECTOR IS NOT 34U. 


*NOTE: USE THE *B’' PROGRAM COMMAND TO MODIFY THIS LOCATIONS 
AFTER PROGRAM LOAD. 


XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REQUIRES 8k OR MORE). 
THIS DIAGNOSTIC DOES SUPPORT '‘APT’’ BUT HAS NOT BEEN RUN UNDER IT. 


POWER FAIL 

A POWER ey WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON vet WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE ) 


MULTIPLE MNCDO INTERFACE TESTING 


THIS PROGRAM DOES ‘‘AUTO-SIZE** THE NUMBER OF MNCDO'S CONNECTED. 
THIS DIAGNOSTIC WILL ntae SEQUENTIALLY UP TO 8 MNCDO INTERFACES, 
WITH CONTIGUOUS BUS ADDRESSES. THE ‘'AUTO-SIZE"’ CAN BE INHIBITED 
BY THE OPERATOR SETTING BIT 15 OF LOCATION ‘SENV (LOC. 1214) OR 
SETTING SWITCH REGISTER BIT 12 TO A ONE. USE THE ‘B"’ 

PROGRAM COMMAND 


TO LOAD THE BASE AND VECTOR ADDRESSES. 
RESTRICTIONS 
ALL USER CONNECTIONS MUST BE REMOVED. 
EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 

TO ABOUT 20 SECONDS WITH ITERATIONS ENABLED WITH ONE MNCDO CONNECTED. 

AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
END OF PASS WILL ALSO REPORT TOTAL ERROR COUNT AND ANY UNIT'S THAT HAD ERRORED. 





9.0 


9.1 


9.2 


9.3 


9.4 


9.5 


10.0 


PROGRAM TEST DESCRIPTIONS 


= LOGIC TEST WITH NO TEST MODULE CONNECTED 
THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 


TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE MNCDO OUTPUT CONTROL. 


A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 
EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTAND! 

THE PROGRAM WILL AUTO-SIZE UP TO 8 MNCDO'S TO BE TESTED. 


D = LOGIC TEST WITH TEST MODULE CONNECTED 


WHEN THE MNCDO TEST MODULE IS CONNECTED, AN ADDITIONAL TEST OF THE 
CONTROL SIGNALS CAN BE MADE. BY STARTING THIS SECTION, THE 
OPERATOR INFORMS THE DIAGNOSTIC THAT THE TEST MODULE IS CONNECTED 
a ae. THE ADDITIONAL TEST AT THE END OF THE NORMAL 

L 


O = OUTPUT TEST MODULE L.E.D. LOOP 
THE LOOP ENABLES VERIFICATION OF THE LOGIC NOT TESTABLE BY THE 
DIAGNOSTIC. A FLOATING LIGHT PATTERN IS PRODUCED FOR EASY 
VERIFICATION OF THE OUTPUT CIRCUITS. 

= PULSE OUTPUT VERIFY LOOP 


THE LOOP ENABLES VERIFICATION OF THE TWO OUTPUT CONTROL SIGNALS. 
THE OPERATOR MUST USE A SCOPE TO OBSERVE THE OUTPUT PULSES. 


= LOGIC TEST WITH TESTER SUPPORT (SA 210) 


THE IN-HOUSE TESTER CONSISTS OF A DIGITAL INPUT/OUTPUT tity TO 
STIMULATE THE INPUT _ OLS SIGNAL AND SENSE THE OUTPUT DAT 

AND CONTROL SIGNALS. AN EXPANDED LOGIC AND WRAP-AROUND Tests 

ARE EXECUTED TO FULLY VERIFY THE COMPLETE MNCDO OPTION. 


LISTING 


SEQ 0006 


CVMNE-A_ MNCDO 
CVMNEA.P11 


DIAGNOSTIC MACY11 27(654) 19-SEP-78 09:02 
TABLE OF CONTENTS 


eke DEF INI TIONS 
RATIONAL SWITCH SETTINGS 
TRAP CATCHER 
ACT11 HOOKS 
APT spate BLOCK 
COMMON T 
APT MAILBOX~E TABLE 
ERROR POINTER TABLE 
awe Af th 3 THE COMMON TAGS 
TYPE NAME 


PROGRAM 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
INFORM THE OPER. THE TESTS AVAILABLE 
add ay = M, THE NUMBER OF MNCDO'S ON THE SYSTEM 


T1 VERIFY CORRECT I.D. CODE FOR MNCDO (IN-HOUSE TESTER ONLY) 
T2 VERIFY A MNCDO ADDRESS RESPONSE 

13 FLOAT A 1 ACROSS THE MNCDO DATA REGISTER 

4 FLOAT A_O ACROSS THE MNCDO DATA REGISTER 

T5 ENSURE THAT “RESET’’ CLEARS THE MNCDO DATA REGISTER 

T6 VERIFY BYTE OPERATION ON THE MNCDO DATA REGISTER 

17 TEST THAT BIT6 OF MNCDO STATUS REGISTER IS READ-WRITE 


T10 TEST THAT BIT4 OF MNCDO STATUS REGISTER IS READ-WRITE 
™11 TEST THAT BIT3 OF MNCDO STATUS REGISTER IS READ-WRITE 
T12 ENSURE THAT “RESET’’ CLEARS THE MNCDO STATUS REGISTER 


T13 VERIFY THAT MNCDO DONE FLAG SETS 


T14 VERIFY THAT MNCDO DONE FLAG CLEARS WHEN WRITTEN TO A 


A 0 
T15 VERIFY THAT MNCDO DONE FLAG CLEARS WHEN OUTPUT DATA REGISTER IS WRITTEN 


T16 INTERRUPT TEST -- VERIFY MNCDO DOES INTERRUPT 

T17 INTERRUPT TEST -- VERIFY THAT gt i OUTPUT IRQ ENABLE WILL REMOVE INTERRUPT REQUEST 
GENERATES R MNCDO FIELD TEST MODULE MODE 

T21 FLOAT A_1 ACROSS THE OUTPUT DATA REGISTER (FIELD DRARF) 


T20 VERIFY OUTPUT STROBE GE 


T22 VERIFY OUTPUT STROBE IS GENERATED (IN-HOUSE TESTER TEST) 


T23 VERIFY OUTPUT DATA REGISTER (IN-HOUSE TESTER TEST) 
T24 DETERMINE IF MORE MNCDO'S REMAIN TO BE TESTED 


END OF PASS ROUTINE 
MISCELLENOUS TEST LOOPS 
MNCDO BYTE STROBE LOOP 


E ROUT INE 

ERROR MESSAGE TYPEOUT — 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
APT COMMUNICATIONS ROUTINE 

POWER DOWN AND UP ROUTINES 

READ AN OCTAL NUMBER FROM THE TTY 

TYPE ROUTINE 

BINARY TO ASCII AND TYPE ROUTINE 

TRAP DECODER 


TRAP TABLE 
ASCII MESSAGES 


SEQ 0007 
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CVMNEA.P11 SEQ 0008 


15 -TITLE CVMNE-A MNCDO- 3 DIAGNOSTIC 

(1) z:*COPYRIGHT (C) 1978 

(1) : sDIGITAL EQUIPMENT CORP. 

a1 :* *MAYNARD, MASS. 01754 

( 3* 

Hie s sPROGRAN BY SHOOP 

(1) ATH 1S PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
a ; *PACKAGE (MAINDEC-11=DZQAC-C3), JAN 19, 1977. 

(1) 7” 

16 

17 171260 ABASE=171260 :DEFAULT DIGITAL OUTPUT BUS ADDRESS 
18 000340 AVECT1=340 :DEFAULT DIGITAL OUTPUT VECTOR ADDRESS 
mo .SBTTL BASIC DEF INITIONS 

(1) s*INITiAL ADDRESS OF THE STACK POINTER *** 1100 *** 

(1) 001100 STACK= 1100 

(1) -EQUIV EMT,ERROR 7:BASIC DEFINITION OF ERROR CALL 
My -EQUIV IOT,SCOPE 7:BASIC DEFINITION OF SCOPE CALL 
(1) > *MISCELLANEOUS DEF INI TIONS 

(1) 000011 HT= 11 ::CODE FOR HORIZONTAL TAB 

(1) 000012 LF= 12 ::CODE FOR LINE FEED 

(1) 000015 CR= 15 ::CODE FOR CARRIAGE RETURN 

(1) 000200 CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 PS= 177776 7zPROCESSOR STATUS WORD 

(1) -EQUIV PS,PSW 

(1) 177774 STKLMT= 177774 +s STACK LIMIT REGISTER 

(1) 177772 PIRQ= 177772 sPROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 > : HARDWARE SWITCH REGISTER 

3 177570 DDISP= 177570 > HARDWARE DISPLAY REGISTER 

(1) 7*GENERAL PURPOSE REGISTER DEFINITIONS 

(1) RO= 20 7: GENERAL REGISTER 

(1) 000001 R1= 21 7 GENERAL REGISTER 

(1) 000002 R2= %2 7 GENERAL REGISTER 

(1) 000003 R3= 23 7: GENERAL REGISTER 

(1) R4= %4 7 GENERAL REGISTER 

(1) 000005 R5= x5 7;GENERAL REGISTER 

(1) R6= 26 33 NERAL REGISTER 

(1) 000007 R7= %7 ;GENERAL REGISTER 

(1) 000006 = %6 +: STACK POINTER 

a 000007 PC= %7 7:PROGRAM COUNTER 

(1) s*PRIORITY LEVEL DEFINITIONS 

(1) PRO= 0 7 PRIORITY LEVEL 0 

(1) PR1= 40 : PRIORITY LEVEL 1 

(1) 000100 PR2= 100 : PRIORITY LEVEL 2 

(1) 000140 PR3= 140 PRIORITY LEVEL 3 

(1) 000200 PR4= 200 ::PRIORITY LEVEL 4 

(1) 000240 PR5= 240 7 PRIORITY LEVEL 5 

(1) 000300 PR6= 300 7 PRIORITY LEVEL 6 

oT 000340 PR7= 340 : PRIORITY LEVEL 7 
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CVMNEA.P11 BASIC DEFINITIONS SEQ 0009 
(1) 3*"‘SWITCH REGISTER’ SWITCH DEFINITIONS 
(1) 100000 SW15= 100000 
(1) 040000 SW14= 4 
(1) 020000 Sw13= 20000 
(1) 010000 Swi2= 10000 
(1) 000 SW11= 4000 
(1) 002000 SW10= 2 
(1) 001000 swo9= 1000 
(1) 000400 SwO8= 400 
(1) swO7= 200 
(1) 000100 SwO6= 100 
(1) 0 swOS= 40 
(1) 000020 Sw04= 20 
(1) 000010 swo3= 10 
(1) SwO2= 4 
(1) 000002 Swol= 2 
(1) 000001 Swoo= 1 
(1) -EQUIV SWO9,SW9 
(1) -EQUIV SW08,SW8 
(1) -EQUIV SWO7,SW7 
(1) -EQUIV SW06, 

(1) EQUIV SWO5,SW5 
(1) -EQUIV SwW04, 

(1) -EQUIV SWO3,SW3 
(1) -EQUIV Sw02, 

(1) EQUIV SWO1,SW1 
3 -EQUIV SWw00,SWO 
(1) 3*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 

(1) 040000 BIT14= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BIT12= 10000 

(1) BIT11= 4000 

(1) 002000 BIT10= 2000 

(1) 001000 BITO9= 1000 

(1) BITO8= 400 

(1) 000200 BITO7= 200 

(1) 000100 BITO6= 100 

(1) 000040 BITOS= 40 

(1) 000020 BITO4= 20 

(1) 000010 BITO3= 10 

(1) BITO2= 

(1) 000002 BITO1= 2 

(1) 000001 BITOO= 1 

(1) -EQUIV BITO9.BIT9 
(1) -EQUIV BITO8.BIT8 
(1) -EQUIV BITO7,BIT7 
(1) -EQUIV BIT06,BIT6 
(1) -EQUIV BITOS.BITS 
(1) -EQUIV BITO4,BIT4 
(1) -EQUIV BIT03.B1T3 
(1) -EQUIV BITO2,BIT2 
(1) -EQUIV 68IT01,B1T1 
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BASIC DEFINITIONS SEQ 0010 


-EQUIV BITOO,BITO 


eae teal TRAP VECTOR ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
SVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 


RE 
TBITVEC=14 
= 14 3; TRACE TRAP 
> ;BREAKPOINT TRAP (BPT) 
TF nt Ney etal TRAP (IOT) **SCOPE** 
3 ;POWER FAIL 
: sEMULATOR TRAP (EMT) **ERROR** 
RAP*" TRAP 


>; TTY KEYBOARD VECTOR 
TPV 64 :zTTY PRINTER VECTOR 
PIRQVEC=240 3 sPROGRAM INTERRUPT REQUEST VECTOR 


mee et ed ad ad td ot = 
de a de a ee i 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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CVMNEA.P11 OPERATIONAL SWITCH SETTINGS SEQ 0011 


-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


Nm 
—_ 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT SIZING THE # OF MNCDO'S 
INHIBIT ITERATIONS 


LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


20 

:*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A *'.+2"° 
7*AND "JSR PC,RO’* SEQUENCE TO CATCH ILLEGAL INTERRUPTS. 
[*AND INTERRUPTS TO THE WRONG VECTOR. 

: sLOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 

** 


24 
—_ IOTRD,200 °% HANDLE BUSS ERROR. 


DISPREG: -WORD 0 SOFTWARE DISPLAY REGISTER 
SWREG: -WORD 0 SOFTWARE SWITCH REGISTER 


an ae La ae 
SO eee 
NMwwvewwervrvuwwwe 
Be Se Se Se Be He Be Be Be Be 
ae ep epee eenene 


-=200 

JMP BEGIN 

JMP RESTRT RESTART ADDRESS 

JMP TESTER ; INDICATE MNCDO IN-HOUSE TESTER MODE 


100 
104,200,RTI ;LSI-11 'B EVENT’’ PROTECTION 
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TRAP CATCHER SEQ 0012 


-SBTTL ACT11 HOOKS 


DEAS ESSE IIDIOI IDOE III III IOI IR tintin 
;HOOKS REQUIRED BY ACT11 
$SV SAVE PC 


321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


2 52)SET LOC. Pe TO ZERO 
33 RESTORE P 


-=1000 
-SBTTL APT PARAMETER BLOCK 


LEAR RRR RRRA RRR E RRR ERR RARER EERE ER ee 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
errritiiiittiitti itt iittiit iit 

or CURRENT LOCATION 

T POWER FAIL TO POINT TO START OF PROGRAM 
FOR APT START UP 
:EPOINT TO APT INDIRECT ADDRESS PNTR. 
7sPOINT TO APT HEADER BLOCK 
. 7:RESET LOCATION COUNTER 

Peri iiiitiitti iii itt ttte tiie ite tr 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 

SHIBTS: 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR : : zADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: RUN TIM OF LONGEST TEST 

SPASTM: 33 . OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: 30 ;ADDIT OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-SHAIL/2 3 LENGTH MAILBOX~E TABLE (WORDS) 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee ee ed ed ot = 28 a fC) = 
wee eee ww wae ee 
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CVMNEA.P11 COMMON TAGS SEQ 0013 


-SBTTL COMMON TAGS 


PETTITT TTT i iii iiiiiiiiiiiiiiiiiitiiiiiiii iii) 
SRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
> *USED PROGRAM. 


~~ 
— 
— 


SCMTAG: zSTART OF COMMON TAGS 


3-CONTAINS THE TEST NUMBER 
3;CONTAINS ERROR FLAG 

37:CONTAINS SUBTEST ITERATION COUNT 
3-CONTAINS SCOPE LOOP ADDRESS 
:sCONTAINS SCOPE RETURN FOR ERRORS 
3zCONTAINS TOTAL ERRORS DETECTED 
3:CONTAINS ITEM CONTROL BYTE 

2 CONTAINS MAX. ERRORS PER TEST 

; NS PC OF LAST ERROR a“ 


ed ed at od ws 


ee Nee Ne eee eee eee ele ee ee ae ee ee ee ee ee ee eo we we we 


3 T. A 
: URESERVED--NOT TO BE USED 


3 ;AUTOMATIC MODE INDICATOR 
3: INTERRUPT MODE INDICATOR 


;sADDRESS OF SWITCH REGISTER 
;zADDRESS OF DISPLAY REGISTER 
ary KBD STATUS 
: TTY KBD BUFFER 
TTY PRINTER STATUS REG. ADDRESS 
ZTTY PRINTER BUFFER REG. ADDRESS 
: CONTAINS NULL CHARACTER FOR FILLS 
SCONTAINS # OF FILLER CHARACTERS REQUIRED 
2 INSERT FILL CHARS. AFTER A ° FEED" 
Mg | AVAILABLE’’ FLAG (BIT<07>=0=YES) 
NUMBER OF ITERATIONS 
‘ESCAPE ON ERROR ADDRESS 
7 QUESTION MARK 
2s CARRIAGE RETURN 
3sLINE FEED 


SEEKER EKEKKERKEEKEREKKKK 


ee 


-SBTTL APT MAILBOX~ETABLE 


leleleleleleleleleoleor jelelojlojojojo) a) 


gS 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 
( 
( 
( 
( 


me ee me ee ee ee a et ee ee ee ed ed ed od od ot od 


RRR RAAR RARER ERR REE ERE RERE RARER ERR RRR ERE 


:;APT MAILBOX 
SIMESSAGE TYPE CODE 
2 FATAL one NUMBER 


O UNIT NUMBER 
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APT MAILBOX-E TABLE 
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- WORD 


: WORD 


: ; = MESSAGE ADDRESS 


E 

: ENVIRONMENT BYTE 
; ENVIRONMENT MOOT SITS 
3sAPT SWITCH REGISTER 
: /USER SWITCHES 

CPU TYPE ,OPTIONS 
Bits 15-11 CPU TYPE 

11/04=01, pitas my O Daa =03,11/40=04,11/45=05 


CLOCK 
9=FLOATING POINT —— 
IT 8=MEMORY MANAGEMENT 
3sHIGH ADDRESS.M.S. BYTE 
TY ka 


373MEM. PE, 
MEM.TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
3;HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR. BLE BYTES, THIS WORD AND LOW OF ‘'TYPE’’ ABOVE 
HIGH ADDRESS ,M.S. BYTE 
33MEM. TYPE ,BLK#2 
32:MEM.LAST ADDRESS, BLKA&2 
+ ;HIGH ADDRESS, ‘a -S.BYTE 


ki - TYPE ,BLK# 
: MEM. LAST ADDRESS ,BLK43 

+: HIGH ADDRESS .M.S.BYTE 

33MEM. TYPE /BLKAG 

32:MEM.LAST ADDRESS ,BLK&4 

3; INTERRUPT VECTOR41,BUS PRIORITYA1 

pl el gave VECTOR#2BUS PRIORITYA2 
fem ae OF EQUIPMENT UNDER TEST 

CONTROLLER DESCRIPTION WORD 

3: CONTROLLER DESCRIPTION WORDA#2 


SEQ 0014 
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CVMNEA.P11 


ee ee a ae ee a a a a i 
OO A St 2 SS SS BS a SI SS 
NN ee ele ae ae ee ee ae 


F BX 


DIAGNOSTIC 
ERROR POINTER TABLE 


013074 
014764 


013203 
014764 


013253 
014764 


013325 
014764 
013526 
014764 
013371 


014764 


013442 
014764 


014116 


014147 


014293 


014237 


014203 


014261 


014315 
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014666 


014700 


014714 


014730 


014714 


014740 


014752 


c ¢@ 
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-SBTTL ERROR POINTER TABLE 


*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
>*THE INFORMATION IS OBTAINED BY USING IND R_FOUND 


[*LOCATION SITEMB. THIS 


THE EX NUMBE IN 
NUMBER INDICATES WHICH ITEM IN THE Ma IS PERTINENT. 


;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 


PC) 
:*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


SERRTB: 


sITER = 
EM1,DH1,DT1,DFO 


sITEM 2 
EM2,DH2,DT2.DF0 


ITEM) 3 
EM3,.DH3,DT3,DFO 


sITEM) 4 
EM4 ,DH4,DT4 DFO 


sive 65 
EM14,DH3,DT3,DFO 


:ITEM 6 
EM6 ,DH6,DT6,DF0 


; ITEM 


7 
EM7 ,DH7,DT7,DFO 


3sPOINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
3zPOINTS TO THE DATA 

3;POINTS TO THE DATA FORMAT 


:;MNCDO BUS ERROR 


;MNCDO DATA REGISTER ERROR 


;MNCDO STATUS REGISTER ERROR 


;MNCDO INTERRUPT ERROR 


;MNCDO INCORRECT I.D. VALUE 


;MNCDO ILLEGAL INTR. OR TRAP 


sEXISTING MNCD FAILED TO RESPOND 


SEQ 0015 
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CVMNEA.P11 ERROR POINTER TABLE SEQ 0016 


001344 


001346 HIGH BYTE ADDRESS 


HIGH BYTE ADDRESS 


;0= NO DWARF'S =1 MNCDO IN-HOUSE TESTER = 2 FIELD DWARF 


WDONAULSWN—O 
ooCcooo oO oO 


7 IN-HOUSE TESTER ADDRESS 


;DEVICE MAP 
4 s;MULTIPLE UNITS,ADDRESS DIFFERENCE 
VECLST: ;VECTOR OF MNCDO 40 

AVECT1+4 . #1 

AVECT1+10 
AVECT14#14 
AVECT1+170 
AVECT1+160 
AVECT1+150 
AVECT1+140 


ee eh et ee ye ee ed ed od 
FERC SSVLFYVTUNS 
Ww — 


VECOFF : 


165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 


;BAD UNIT INDICATOR 


— So So 
RALATLSIIN 
ooo] SS SS = KO 


BITDAT=BIT12 MAINT INPUT INHIBIT 
BITEXT=B1T11 ; INPUT MAINT STROBE 


001364 :CLEAR RESTART INDICATOR 
001360 ; INDICATE NO DWARF 


RBEGO 
000001 TESTER: : INDICATE TESTER 
001364 CLEAR RESTART INDICATOR 


BR 
001364 RESTRT: : INDICATE RESTART 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 
001100 #SCMTAG,R6 7eFIRST LOCATION TO BE CLEARED 
(R6)+ 3:CLEAR MEMORY LOCATION 
001140 #SWR,R6 ; ;DONE? 








CVMNE~A ry 
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INITIALIZE THE COMMON TAGS 


001374 ad -~6 ;;LOOP BACK IF NO 
012706 WSTACK, SP ;zSETUP THE STACK POINTER 
: INITIALIZE A FEW VECTORS 
012737 20 #SSCOPE ,a#IOTVEC a¢i0t VECTOR FOR SCOPE ROUTINE 
00034 #340, aniOTVECs2 szLEVEL 7 
#SERROR, @MEMTVEC sem VECTOR FOR ERROR ROUTINE 
#340, QveMTVEC+2 eel L 7 
#$T TRAP, TRAPVEC ;; 3443 VECTOR FOR TRAP CALLS 
#340, @ATRAPVEC +2; LEVEL 7 
#SPWRDN , AAPWRVEC sn PO VECTOR 
7: SETUP END-OF-PROGRAM COUNTER 
sZ INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
;ALLOW ONE ERROR PER TEST 
:3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
012737 001634 MOV -SLPERR SETUP THE ERROR LOOP ADDRESS 
szSIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
; EQUAL TO A ‘~1°', SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 MOV @VERRVEC ,-(SP) SANE OR VECTOR 
#64$, AMERRVEC ;SET UP ERROR VECTOR 
#DSWR, SWR :;SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP, DISPLAY + SAND A HARDWARE DISPLAY REGISTER 
177777 #-1 .aSWR +: TRY TO REFERENCE HARDWARE SWR 
66$ ; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
+ AND THE HARDWARE SWR IS NOT = -1 
65$ ;BRANCH IF NO TIMEOUT 
001710 : #65$, (SP) +: SET UP FOR TRAP RETURN 


000176 001140 : AMSWREG , SWR :sPOINT TO SOFTWARE SWR 
000174 001142 #DISPREG DISPLAY 
000004 : (SP)+,QWERRVEC ;;PESTORE ERROR VECTOR 


001176 CL SPASS 7:CLEAR PASS COUNT 
000200 MAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
E 7$ 3-YES,USE NON-APT SWITCH 
012737 001212 AMSSWREG , SWR 3=NO,USE APT SWITCH REGISTER 


67$: 
ROUTINE TO OVERLAY THE 1ST 3 LOC. OF THE $TYPE ROUTINE 
012737 005046 MOV #5046, $TYPE OVERLAY TYPE ROUTINE 
012746 #12746, $TYPE+2 CLR -(SP) 
011540 WSTYPE+12 ,STYPE+4 :MOV MSTYPE+12,-(SP) 
000002 #RTI,STYPE+6 :RTI 
006104 JSR PC ,S$TKINT ENABLE KRB INTR. 
.SBTTL _TYPE PROGRAM NAME 
7; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
177777 INC #~1 2 FIRST TIME? 
68$ :BRANCH IF NO 
005574 #SENDAD ,a#42 3 3ACT-11? 
68$ _— IF 
002072 YPE .69$ YPE ASCIZ. STRING 
. Ger VALUE FOR SOFTWARE siiTey + the 
000042 TST a442 zARE WE RUNNING UNDER XXDP/ACT? 
BNE 70$ ‘BRANCH IF YES 


SEQ 0017 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0018 


ees 001210 000001 —o 2 sARE ¥ ety UNDER APT? 
001140 000176 SWR ,ASWREG 3 3 SOF TWARE SWITCH REG SELECTED? 
71$ CH IF NO 
Z:GET SOFT-SWR SETTINGS 
0004 BR 71$ 
112737 000001 001134 : #1 ,SAUTOB 33SET AUTO-MODE INDICATOR 


000424 BR 68$ ;GET OVER THE ASCIZ 
: <CRLF >#CVMNE~A hNCDO (DIGIAL OUT) DIAGNOSTICA<CRLF> 


105737 ace IF ACT/XXDP/APT RUN MODE 
3$ :BR 


F NONE 
RUN LOGIC TEST 
Bs Md RESTART 


:BR IF YES 
:TEST IF NO DWARF 
:BR IF NONE 
TYPE, _MSGCAB TELL OPERATOR ABOUT TESTER CABLE 
INF ORM y> OPER. THE TESTS AVATLABLE 
Satis PE, PRIMEO aT it THEM OF THE DIFFERENT TESTS 


IT 
176734 BI #B1T6,a$TKS SENABLE TKS INT 
Poth 2 INIT THE PASS COUN 


EVER OUT FLAG 
PCF IXADR “ ENSURE CORRECT yy 4 ADDRESS IS LOADED 
DOT : INDICATE a POIN 


a(SP)+,RUNIT 
0,RUNI 


BR IF NOT 
> CHANGE THE BASE ADDRESS 
TEST FOR ‘D"’ 


BR IF NOT 

see rest FIELD DWARF IS CONNECTED 
RUN L OGIC ae" WITH DWARF 

TEST FOR ° 

;BR AND RETYPE THE LIST OF TEST 
sTEST FOR ‘L"’ 


‘BR IF NOT 

sREMOVE DWARF INDICATOR 
RUN Lgsic TEST WITHOUT DWARF 
3s TEST FOR ‘0O* 

BR IF NOT 

RUN DWARF OUTPUT LAMP LOOP 
;TEST FOR 'P*' 

:BR IF NOT 

RUN mAs, OUTPUT 

zs TEST FOR ‘GG’ 

:BR IF NOT 


MTEST1 RETYPE DOT 
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. INFORM THE OPER. THE TESTS AVAILABLE SEQ 0019 


001164 77$: -  $QUES wet 
002200 meet JMP MTEST1 RETYPE DOT 


° hoe THE NUMBER OF MNCDO'S ON THE SYSTEM 
014471 LOGICO: MSGDWF TELL OPER. ABOUT CONNECTING DWARF 
001126 LOGIC: V oud SBDDAT 7GET BASE ADDRESS 


SUNIT. ;CLEAR UNIT NUMBER 
000004 MOV #2$ ,ERRVEC ;LOAD RETURN ADDRESS 
1$: @S8DDAT TEST IF ADDRESS EXISTS 
001126 VADDR , $BDDAT UPDATE BUS ADDRESS 
SUNIT ;UPDATE UNIT COUNT 
SENV :TEST IF ‘DO NOT SIZE’ 
3$ 7BR IF NO SIZEING 
176436 #SW12,aSWR TEST IF SW 12 IS SET 
$ 3BR i INHIBIT SIZING SWITCH IS SET 
001202 + ated T IF MAX NUMBER 


3$ 7BR IF MAX 
(SP)+, (SP)+ +RESTORE STACK 
SUNIT 


3$ TBR I 
a442 TEST IF XXDP CHAIN MODE 
3$ 7BR IF YES 

‘ BASE ADDRESS CAUSED A BUS TRAP 


EOP 
#IOTRD,ERRVEC  ;RESTORE ERROR VECTOR 

#200, ERRVEC+2 

EVER TEST IF # HAS BEEN REPORTED 
DWARF STEST IF TESTER MODE 

4 IF TESTER 


BNE 6 é 
013573 ~FOUND1 :TELL OPERATOR # OF MNCDO FOUND 
001202 MO SUNIT,-(SP) 


013616 ,FOUND2 
001202 $UNIT :TEST IF ANY UNITS 
6$ :BR IF SOME 
005426 $EOP SREPORT EOP 
001202 : SUNIT, EVER ‘SAVE THE # OF MNCDO' S. FOR, LATER 
100000 weit, EVER ‘SET ‘REPORTED NUMBER F 


5 
001442 3 MPB EVER, SUNIT TEST IF ANY HAVE GONE AWAY 

$ 3;BR IF ALL ARE STILL THERE 
001442 EVER, TEMP SAVE FOR ERROR REPORT 

7 ZEXISTING UNIT FAILED TO RESPOND 
001202 : SUNIT ;RESET UNIT POINTER 
0027%2 PCF IXADR ;LOAD BUS ADDRESSES 
000001 #81T0,MASKNM :LOAD DEVICE MASK 
001444 BADUNT ;RESET BAD UNIT INDICATOR 


-(SP) 
003164 #TST1,~(SP) 
;LOWER CPU PRIORITY 
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. DETERMINE THE NUMBER OF MNCDO'S ON THE SYSTE SEQ 0020 


; SUBROUTINE TO FIX DEVICE ADDRESS AND VECTORS 
001344 FIXADR: MOV #OCSR RO ;LOAD AD: 


001244 MO $BASE .R1 
1$: R1, (RO)+ 


R ; UPD VALUE 
+ $ -ADOR1+2 Bt . WITH BUS ADDRESSES 


:BR IF NO 
$VECT1,R1 ;LOAD VECTOR POINTER 
R1,(RO)+ ; LOAD oh ath Ro de ADDRESS 
(Ri)+ INC FOR STATUS WORD 
R1, (RO) [LOAD ADDRESS OF STATUS WORD 
#VECLST,RO ;GET POINTER TO ACTUAL VECTOR AREA 
#VECOFF ,R1 :GET POINTER TO VECTOR OFFSET VALUES 
$VECT1, (RO) SLOAD BASE VECTOR 
(R1)+, (RO)+ sADD VECTOR OFFSET 
SVECT1, (RO) LOAD BASE VECTOR 
(R1)+, (RO)+ ZADD VECTOR OFFSET 

BASE VECT 


$VECT, (RO) TLOAD OR 
‘ADD VECTOR OFFSET 

[LOAD BASE VECTOR 

‘ADD VECTOR OFFSET 

‘LOAD BASE VECTOR 

SADD VECTOR OFFSET 

[LOAD BASE VECTOR 

. ‘ADD VECTOR OFFSET 
$VECT1, (RO) ‘LOAD BASE VECTOR 
(R1)+, (RO)+ ‘ADD VECTOR OFFSET 
$VECT1, (RO) [LOAD BASE VECTOR 
(R1)+, (RO)+ ‘ADD VECTOR OFFSET 


ALSO TO LOAD INTELLIGENT TRAP CATCHER 
MOV #250,RO OAD RO 


Py 


ee ek ed ed td od od od 
Oovrvwvrvvvvvvvvvvvve@® 


3 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
3 


zLOAD R1 
:LOAD ILLEGAL INSTR. INTO R2 


at 
R2,(RO)+ ;LOAD itteca INSTR. 
(R1)+,(R1)+ “BUMP R 

RO.41000 DONE? 

4$ ;NO-BR 

PC sRETURN 


ROUTINE TO ASK THE OPERATOR FOR ADRS. & + > Sa INF ORMAT ION 
014350 TYPE ADROUT ;ASK FOR OUTPUT 
001244 MOY $BASE ,- (SP) [LOAD DEFAUT ONTO STACK 
014464 TYPE -ENDOUT CONTINUE MESSAGE 
RDOCT SAND WAIT FOR INPUT 
TST (SP)+ DOES THE SreRAren WANT THE DEFAULT 
BEQ 3$ : YES-BRANCH 
177776 001244 MOV -2(SP) , SBASE 7SAVE ANSWER 
014415 3$: TYPE .VECOUT zASK FOR OUTPUT VECTOR 
001240 i $VECT1,-(SP) ;LOAD DEFAUT ONTO STACK 
014464 TYPE -ENDOUT CONTINUE MESSAGE 
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DETERMINE THE NUMBER OF MNCDO'S ON THE SYSTEM SEQ 0021 


AND WAIT FOR INPUT 
(SP) + : DOES THE OPERATOR WANT THE DEFAULT? 
4$ ; YES-BRANCH 
177776 001240 -2(SP),$VECT1  :NO=SAVE ANSWER 
002712 4$: PC ,FIXADR ;LOAD THE NEW ADDR: 
002200 MTEST1 SRESTART 
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11 VERIFY CORRECT I1.D. CODE FOR MNCDO (IN-HOUSE TESTER ONLY) SEQ 0022 


FERRARA AERA RERERE ARERR EERAEEREEEEREREREREREKEERERERRERRREEE 


:STEST 1 VERIFY CORRECT I.D. CODE FOR MNCDO (IN-HOUSE TESTER ONLY) 


LARARAAAAAARARAERRERRERRERAEEERERREAERREEREEERAEREE EERE E RRR KE 


té11: 
af sien sTEST F a TESTER’* MODE 


ars TR2 + ENSURE TESTER MODE 

@TSTR4,$BDDAT :READ I.D. VALUE 
#177417, $BDDAT :MASK TO OTHER BITS 

7160. $GDDAT *LOAD EXPECTED I.D. VALUE 

SGDDAT,$BDDAT : COMPARE THEM 

TST2 ":BR IF SAME 


338R I 
3MNCDO INCORRECT I.D. VALUE READ 


PETE T TTT TTT TTTTTTTTTITTTTTITITITIT TTT TT TELL EL 


TRTEST 2 VERIFY A MNCDO ADDRESS RESPONSE 


RRR AAAAEEEEAEAEEERAREEEEEEEEAEEREREEEEEERERRREKEREEREREERKEKEKKKEK 


is12: 

#1$, ERRVEC ;LOAD BUS TRAP RETURN 

a0csR sTEST OUTPUT STATUS REGISTER 

aDOR :TEST OUTPUT DATA REGISTER 

2s ::BR IF NO TIMEOUT 

(SP) + > CLEAN THE STACK 

1 ;BUS TIMEOUT WHEN ADDRESSING MNCDO 
012150 #IOTRD,ERRVEC *RESTORE TRAP VECTOR 
000200 #200, ,ERRVEC+2 
005300 REMAIN ;CHECK FOR MORE 


;UNITS 
012737 012150 : #IOTRD ,ERRVEC RESTORE TRAP VECTOR 
012737 000200 MOV #200, ERRVEC+2 
MT TTITI TTT ITI Titec itil i titi titi iii iti titi, 


FLOAT A 1 ACROSS THE MNCDO DATA REGISTER 


LEAR AAR AAERERRARAEREREEEREERREERRREERAEEREREREREREEEEEREERREEEER 


TST3: 
#BITO, ao sLOAD EXPECTED BIT 
#1$,$LPAD ;LOAD LOOP ADDRESS 

1$: SGDDAT, apon LOAD MNCDO DATA REGISTER 
aDOR, SBDDA *READ MNCDO DATA REGISTER 
$GDDAT. SODDAT ARE 


; COMP: 
::BR IF EXPECTED 
; MNCDO DATA REGISTER ace TO HOLD A FLOATING 1 
HANGE THE DAT 


:C 
BR IF MORE DATA 


2 
S$GDDAT 
1$ 
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CVMNEA.P11 4 FLOAT A 0 ACROSS THE MNCDO DATA REGISTER SEQ 0023 


SE RAAARARAERERERRAARAERAAE AREER RARER REEREERRERRERRERERERERRR EE 


TeTEST 4 FLOAT “~ 0 ACROSS THE MNCDO DATA REGISTER 


J AAA RARER AREER AAA ERE EERE AERA EREEREREREREREEREREREEERRRRERER 


TST4: 
#81T0, TEMP LOAD INITIAL BIT 
#1$,SLPADR [LOAD LOOP ADDRESS 

1$: TEMP , SGDDAT ;LOAD ad aaa 
SGDDAT s¢ EMENT 
SGDDAT ,aDOR ;LOAD MNCDO DATA REGISTER 
@aDOR , SBDDAT ;READ MNCDO DATA REGISTER 
ened aman ARE 


;;BR IF EXPECT ED 
2 SMNCDO DATA REGISTER —— TO HOLD A FLOATING 0 
2s: TEMP CHANGE THE DATA 
1$ BR IF MORE DATA 


IST TITI TILT ILTI LLL TLL LETTE Lett Gh didi 
:ATEST 5 ENSURE THAT ‘RESET’’ CLEARS THE MNCDO DATA REGISTER 
FARRAR ARAAARARAERAERRAEERAAERAERRERAEREREEKERERAERERRARRERRRERERRRERE 
i815: 
001160 se STIMES 3:D0 40 ITERATIONS 
175654 #-1,aDOR ;LOAD BITS TO BE RESET 
$GDDAT sCLEAR EXPECTED 
CLEAR THE DEVICE 
175434 #B1T6,a$TKS TENABLE TKB INTR. 
001126 @DOR , SBDDAT READ MNCDO DATA REGISTER 
BE TST6 77BR IF CLEARED 
sMNCDO DATA REGISTER FAILED TO CLEAR WITH ‘RESET"' 


PITT TIT TTT ITI T ITT T TTL TIL i titi Litt iit thd 


s*TEST 6 VERIFY BYTE OPERATION ON THE MNCDO DATA REGISTER 


J LARA ARARARARRARARERAAEARERERERAAAEREAERAARERAERAAEREREARAERERERARERERERER 


TST6: 
#1$,$LPADR ;LOAD RETURN ADDRESS 

1$: #-1.aDOR [LOAD MNCDO DATA REGISTER 
#377, SGDDAT TLOAD EXPECTED 
aDori :CLEAR HIGH BYTE 
@DOR, SBDDAT [READ MNCDO DATA REGISTER 
SCDDAT . SBDDAT * COMPARE 


77BR IF SAME 
2 *CLEARING HIGH BYTE CHANGED LOW BYTE 
#2$,.$LPADR *LOAD LOOP RETURN 

#~-1.aDOR ;LOAD MNCDO DATA REGISTER 
#177400, $GDDAT : XPECTED 

aDOR [CLEAR LOW 


BYTE 
aDOR , SBDDAT [READ MNCDO DATA REGISTER 
gees - SBDDAT ; COMPARE 


3;BR IF SAME 
CLEARING LOW BYTE CHANGED HIGH BYTE 


aA RRR ARRAN 
Oe 
i id 
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A. 7? TEST THAT BIT6 OF MNCDO STATUS REGISTER IS READ-WRITE 
Pertti iit 
s*TEST 7 TEST THAT BIT6 OF MNCDO STATUS REGISTER IS READ-WRITE 


FERRARA RARER RARER AEERERER EERE ERERARERAEARREARARRERERE EERE 


TST?: 
#B81T6,$GDDAT ;LOAD EXPECTED 
SGDDAT ,@OCSR SLOAD BIT6 INTO MNCDO STATUS REGISTER 
@0CSR,S$BDDAT ;READ MNCDO STATUS REGISTER 
anand pmetcns TEST THAT IT SET 


;7;BR IF SET 
3 sBITé CF MNCDO STATUS REGISTER FAILED TO SET 


SGDDAT ,@OCSR ;CLEAR THAT BIT 
@0CSR, $BDDAT ZREAD MNCDO STATUS REGISTER AGAIN 
SCDDAT, SBDDAT TEST THE BIT 
710 ;;BR IF CLEARED 
;BIT6 OF MNCDO STATUS REGISTER FAILED TO CLEAR 


SEERA EERE RERREEERERREREEREARRERERERRERERRRREKKE 


s*TEST 10 TEST THAT BIT4 OF MNCDO STATUS REGISTER IS READ-WRITE 


LL ERARARRARERERERERRRARERERERREAEERERREARERERRERERAEREEEERREREEREEEE 


TST10: 
#B1T4,SGDDAT 
SGDDAT ,@OCSR 
@0CSR,$BDDAT 
pened . SBDDAT 


3 


SGDDAT ,@OCSR 
@0CSR,$BDDAT 


CSR, $8D 
ScDDAT, . SBDDAT 


;LOAD EXPECTED 

;LOAD BIT4 INTO MNCDO STATUS REGISTER 
READ MNCDO STATUS REGISTER 

giese THAT IT SET 


37BR IF SE 
:BIT4 OF MNCDO STATUS REGISTER FAILED TO SET 


;CLEAR THAT BIT 
;READ MNCDO STATUS REGISTER AGAIN 
sTEST THE BIT 

77BR IF CLEARED 

:BIT4 OF MNCDO STATUS REGISTER FAILED TO CLEAR 


TTITI TIT TITTTTITI ITIL Litti titi ehti teh bkdihbiddde 


TATEST 11 


TEST THAT BIT3 OF MNCDO STATUS REGISTER IS READ-WRITE 


+ RR RAAR REE E ERE REE EERE REAR R ERE ER REE R REE ER 


TST11: 
#B1T3,SGDDAT 
SGDDAT ,a0CSR 
a0CSR, $BDDAT 
ScDDAT, *SBDDAT 


3 


S$GDDAT ,@OCSR 
@0CSR,$BDDAT 
SGDDAT , SBDDAT 
oy 2 


;LOAD EXPECTED 
;LOAD BIT3 INTO MNCDO STATUS REGISTER 
TREAD MNCDO STATUS REGISTER 
“TEST THAT IT SET 
77BR_IF SET 
;BIT3 OF MNCDO STATUS REGISTER FAILED TO SET 


:CLEAR THAT BIT 
;READ MNCDO STATUS REGISTER AGAIN 
TEST THE BIT 

‘am IF CLEARED 

1T3 OF MNCDO STATUS REGISTER FAILED TO CLEAR 


SEQ 0024 
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URE THAT ‘RESET'’ CLEARS THE MNCDO STATUS REGISTER 


5 LRA RARER AEREEREEREERERREREREERERERERREEERRERERERRERRER 


s*TEST 12 ENSURE THAT ‘RESET'' CLEARS THE MNCDO STATUS REGISTER 


5 RAR ARAEAARARRREREERERRERREREREAEERRERERAEEREEREREERARRRERREERERRREE EH 


TST12: 
001160 MO #40, $TIMES ::D0 40 ITERATIONS 
175232 MOV #130, @0CSR sLOAD BITS TO BE RESET 
$GDDAT PECTED 


175016 I #B1T6,a$TKS ENABLE TKB INTR. 
001126 @0CSR ,$BDDAT READ MNCDO STATUS REGISTER 
TST13 ;;BR IF CLEARED 
3 :MNCDO STATUS REGISTER FAILED TO CLEAR WITH ‘RESET’’ 


Pettitt iii ii iiiiiiiiiiiiii ir 
z*TEST 13 VERIFY THAT MNCDO DONE FLAG SETS 
et ti titi iitiiitiiiitit titi iiitiiiitiiiiitiii iii rrr 
18113: 
175176 C a0CSR ;CLEAR CLEARED FLAG 
000200 #B1T7,$GDDAT ;LOAD EXPECTED 
175170 aDOR 
000001 


7 ENABLE 

#81T0,a0CSR1 GENERATE MAINT. REPLY 
175152 @0CSR,S$BDDAT TREAD OUTPUT STATUS REGISTER 
001124 SGDDAT, SBDDAT s¢ ARE 

TST14 7 BR IF EXPECT ED 

3 ;OUTPUT DONE FLAG FAILED TO SET 
LL AARARRARERERERRERAEREREREREREREERERERERERERERERREREKEEEREREEEEREEEE 
s*TEST 14 VERIFY THAT MNCDO DONE FLAG CLEARS WHEN WRITTEN TO A O 


J LEAR RREREREREREEEREREKEERREEEAEERREREERERKEKEERERERERRRREE 


TST14: 


aDOR s ENABLE 
175124 MOVB #B1T0,a@0CSR1 ; GENERATE MAINT. REPLY 
SGDDAT sce EXPECTED 
@0csR AR OUTPUT DONE FLAG 
001126 @0CSR,SBDDAT “READ STATUS 
TST15 77BR IF CLEARED 
3 sWRITING OUTPUT FLAG TO A ZERO FAILED TO CLEAR O 


{RRA RERAREEARERREEEERRRERERERERERAEERERRAEREEEREREEEREREREREKKEREREEH 
;ATEST 15 VERIFY THAT MNCDO DONE FLAG CLEARS WHEN OUTPUT DATA REGISTER IS WRITTEN 
CREAR AAAARAREREEEARAKRAREEEEERAEAAKREAEEEEEAEEEAEEEEREEK 
isT15: 
1730" 


aDOR 7 ENABLE 
00000 MOVB #81T0,a0CSR1 GENERATE MAINT. REPLY 

001124 SGDDAT CLEAR EXPECTED 

175060 aDOR sWRITE THE OUTPUT DATA REGISTER 
175050 FoL 8 SEOs READ pane STATUS REGISTER 


7;BR IF CLEARE 
OUTPUT DONE FLAG FAILED TO CLEAR 
;WHEN OUTPUT DATA REGISTER WAS WRITTEN 





N 2 
DIAGNOSTIC MACY11 27(654) 19-SEP-78 09:02 PAGE 8 
T16 INTERRUPT TEST == VERIFY MNCDO DOES INTERRUPT SEQ 0026 


FARRAR AAAAERAERRAERERARAERE RRA ERERREERER ARERR RREKRERERRKKRERRRR ER 


SSTEST 16 INTERRUPT TEST == VERIFY MNCDO DOES INTERRUPT 


LRRARARRARRRAERERARRRREERERAERR ARERR AEE RE RREERREERERRERRRREE 


isT16: 
001106 MO #64$,$LPADR 
175034 648: #1$, aDODINV ;LOAD RETURN VECTOR 
175030 #200, aDOD INS ‘LOAD RETURN LEVEL 


aDOR ; ENABLE 
175006 a: ema ;GENERATE MAINT. REPLY 
#10$,-(SP) 
;LSI-11 LOWER PRIORITY 
#B1T6,a0CSR ;ENABLE INTR. 


NOP 
174752 CL a0CSR DISABLE INTR 
+s :MNCDO FAILED TO INTERRUPT 


: (SP)+, (SP)+ :CLEAR THE STACK 
004440 174746 #2$ ,aDODINV ;LOAD 2ND RETURN VECOOR 
174744 a@DODINS 


-(SP) 
004422 #11$,-(SP) 
sLSI-11 LOWER PRIORITY 


NOP 
174706 a0CSR DISABLE INTR 
BR 3$ $3 


(SP)+, (SP)+ CLEAN THE — 
174676 @0CSR :DISABLE INT 

4 ;CLEARING INTR. ENABLE FAILED TO REMOVE INTR. REQUEST 
174670 3$: a@0CSR 
001356 174672 DOD INS ,@DOD INV RESET VECTORS 


004700 174666 posh E @DOD INS 
174650 a0CSR 
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TERRUPT TEST == VERIFY THAT REMOVING OUTPUT IRQ ENABLE WILL REMOVE INTERRUPT REQUE SEQ 0027 


LEAR REE RRR EKEERREEKERERKEE EE 


:*TEST 17 INTERRUPT TEST == VERIFY THAT REMOVING OUTPUT IRQ ENABLE WILL REMOVE INT 


FARRAR REREREEEERERERERER ARERR ERRERKEKEEK 


18117: 
#200,-(SP) 
#10$,-(SP) 
108 :LSI-11 RAISE PRIORITY 


NOP 

4634 #1$,aDODINV ;LOAD INTR. VECTOR 

174630 #200, a@DODINS : 

174610 #81T6,a0CSR ENABLE INTERRUPT 
aDOR ENABLE 


174600 #B1T0,a0CSR1 [GENERATE MAINT. REPLY 


NOP 
174564 #B1T6,a0CSR DISABLE INTERRUPT 


-(SP) 
#11$,-(SP) 
:LSI-11 LOWER PRIORITY 


174536 _ CLEAR STATUS REGISTER 


: (SP) +, (SP)+ CLEAN THE STACK 
174526 CL a0CSR sCLEAR OUTPUT STATUS 
176520 & ;CLEARING INTERRUPT ENABLE FAILED TO REMOVE INTERRUPT RE 


: a0CSR 
001356 DOD INS , @DOD INV sRESET VECTORS 
004700 - #4700, @D0DINS . 
174500 a@0CSR 


~(SP) 
004654 MOV #3$,-(SP) ;LOWER PRIORITY 
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CVMNEA.P11 INTERRUPT TEST == VERIFY THAT REMOVING OUTPUT IRQ ENABLE WILL REMOVE INTERRUPT REQUE . SEQ 0028 


STARR REERERERARERARRARAEERRRERRERREEERRRRERRERE 
Z*TEST 20 VERIFY OUTPUT STROBE GENERATES REPLY = MNCDO FIELD TEST MODULE 
FERRARA EAE RERAREERREERRERRERERERRERERERREREKE 
TST20: 
001360 CMP #2 ,DWARF ; TEST IF MNCDO FIELD DWARF MODE 
TST21 ;7;BR IF NoT 
00112% #B1T7,$GDDAT ;LOAD EXPECTED 
aDOR ;CLEAR OUTPUT AND a hay STROBE 
001126 “READ OUTPUT STATUS REG 
001126 3 * COMPARE 


SAME 

;MNCDO STROBE FAILED TO GENERATE REPLY 
Peer etiici ti tigi ity 
i*TEST 21 FLOAT A 1 ACROSS THE OUTPUT DATA REGISTER (FIELD DRARF) 


LER A ERE REEEERRE EERE EREEREREREERRREEREEERKRERRREKREE 


TST21: 

#1,$TIMES ::D0 1 ITERATION 

#2, DWARF ;TEST IF FIELD MODE 
TST22 *:BR IF NOT FIELD 
$PASS :TEST IF FIRST PASS 
TST22 IF YES 
#B1T0,$GDDAT “LOAD VALUE 

: #81715, TEMP =LOAD COUNTER 
174356 $GDDAT .aDOR ‘LOAD OUTPUT REGISTER 

TEMP “DELAY MORE 


2s 
$GDDAT CHANGE THE DATA 
1$ ;BR IF NOT DONE 
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CVMNE-A_ MNCDO 
. T22 VERIFY OUTPUT STROBE IS GENERATED (IN-HOUSE TESTER TEST) 


SEQ 0029 


5 RRR EERE REE REE ERE RRR ERERERRARE RRR RERREREERERRERER 


S*TEST 22 VERIFY OUTPUT STROBE IS GENERATED (IN-HOUSE TESTER TEST) 


174250 
000000 
001124 


174250 
174216 
000200 
001124 


174170 


000000 
174156 
001124 


001126 


#1 , DWARF 
TST23 
ries aTSTR2 


TSTRO 
OR 


@0CSR 

@TSTRO, $BDDAT 
#8117, $GDDAT 
> etre adameneane 


3 
@0CSR,$BDDAT 
#0,,$GDDAT 
pene mente: 


3 
aTSTR4,RO 


@0CSR,$BDDAT 
#B1T7,SGDDAT 
> ampepeanampenr: 


3 

a0CSR 

#0, $GDDAT 
@0CSR,$BDDAT 
SGDDAT , SBDDAT 
pie 


SERRA RARER REE RRA RRR ERR REE E REE EREEREREREERRAER ERE 


TST22: 


ot phen DWARF'’ MODE 


SENABLE TESTER 

;CLEAR TESTER STATUS 

CLEAR OUTPUT ote <GEN. OUTPUT STROBE> 
CLEAR OUTPUT STATUS 

SREAD TESTER STATUS 

;LOAD ag hy VALUE 

COMPARE T HEM 


::BR_ IF SAME 

:NO MNCDO STROBE FLAG 

;READ OUTPUT STATUS 

SLOAD EXPECTED 

= COMAPRE THE STATUS 

;;BR IF SAME 

[UNEXPECTED OUTPUT Leta FLAG 
[READ TESTER INPUT DAT 

: CAUSING A R A REPLY TO BE ASENT TO OUTPUT 
;LOAD EXPECTED OUTPUT STATUS 
;COMAPRE T HEM 


:3BR IF SAME 
;REPLY FROM at by FAILED TO SET OUTPUT READY FLOP 
CLEAR OUTPUT STATUS 

LOAD EXPECTED 

;READ ACTUAL OUTPUT STATUS 


7:BR IF SAME 
;OUTPUT STATUS FAILED TO CLEAR 


LEER REE RERRE RARER RARE EREREERERERERRRRRERERER RRR RH 


s*TEST 23 VERIFY OUTPUT DATA REGISTER (IN-HOUSE TESTER TEST) 


LEAR EREREREREREEEREEREERRARRERERERRERRREREREEE 


000001 
000004 
005236 
000001 

001124 

174122 
001124 


001124 


TST23: 


#1 , DWARF 


3$ 
#B1T2,aTSTR2 
#1$,$LPADR 
#B1T0,$GDDAT 
S$GDDAT ,a@DOR 
@TSTR4,$8DDAT 


SGDDAT , SBDDAT 
2$ 


2 
$GDDAT 
1$ 


:TEST y tees DWARF MODE"' 


::BR IF NO 
sENSURE TESTER MODE 
7SET RETURN ADDRESS 
LOAD EXPECTED 
;LOAD THE OUTPUT DATA REGISTER 
[READ THE TESTER INPUT REGISTER 


= COMPARE DATA 
SAME 


IF 
:QUTPUT DATA REGISTER ERROR 
CHANGE THE EXPECTED DATA 
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CVMNEA.P11 


005300 


DIAGNOSTIC 
VERIFY OUTPUT DATA REGISTER (IN-HOUSE TESTER TEST) 


T23 


MACY11 27(654) 


001160 
001442 
001344 

6 


001354 
001356 
001356 


REMAIN: 


2 
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PP Talal lahehahahalaheheiahelaiaieleleielel RRR 


S*TEST 24 DETERMINE IF MORE MNCDO'S REMAIN TO BE TESTED 


SLR RRR ERE EE EERE REE EERE EERE ER EEERERERER ERE REE 


TST24: 


SCOPE 

MOV #1,$TIMES 3:D0 1 ITERATION 
INC SUNIT UPDATE UNIT # 
CMPB SUNIT,EVER TEST IF MORE 
BEQ 1$ 7:BR IF NOT 


ADD VADDR ,OCSR 
ADD VADDR ,OCSR1 


ASL MASKNM ; CHANGE ERROR a BIT 

JSR PC ,WHICHU [DETERMINE UNIT # 

MOV UNI TBD ,RO :GET IT 

ASL RO MAKE WORD VALUE 

MOV VECLST (RO) ,DODINV GET THIS UNITS VECTOR VALUE 
MOV iat DODINS :COPY IT AND 

ADD #2,D MAKE NEXT ADDRESS 

CLR STSTNM :CLR TST NUMBER 

i TST1 TEST NEXT UNIT 


SEQ 0030 


ra 
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END OF PASS ROUTINE «SEQ 0031 


.SBTTL END OF PASS ROUTINE 


ORR RAR ISIIOIIDIOIISIOIIOIIISIOIISIIIIIOIIIIOIISIOIISIIIIIOIIUIIIDIDIIDIOIIOIOIIIDIOIIIOIIOIIODE 
7 * INCREMENT THE PASS NUMBER ($PASS) 

*TYPE ‘END PASS #XXXXX"’ (WHERE XXXXX IS A DECIMAL NUMBER) 

3;*I1F THERES A MONITOR GO TO IT 

:*I1F THERE ISN'T JUMP TO EXTMSG 


SEOP: 


3zZERO THE TEST NUMBER 

:zZERO THE NUMBER OF ITERATIONS 
$PASS :: INCREMENT THE PASS NUMBER 
#100000, $PASS :;DON'T ALLOW A NEG. NUMBER 
teas as ? 


SEOPCT: 


$DOAGN ::YES 
(PC)+,a(PC)+ 7 sRESTORE COUNTER 
SENDCT: .WORD 1 


~ SENDMG sz TYPE “END PASS #°' 
SPASS ,- (SP) ; SAVE SPASS FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 
3: TYPE A NULL CHARACTER 
$GET42: MOV 42 ::GET MONITOR ADDRESS 
OAGN ; BRANCH IF NO MONITOR 
: CLEAR THE WORLD 
SENDAD: JSR PC, (RO) ::GO TO MONITOR 
72 SAVE ROOM 


SZACT11 
SDOAGN: 
a(Pc)+ +: RETURN 


SRTNAD: EXTMSG 
377 SENULL: . =1,-1.0 ::NULL CHARACTER STRING 
042 SENDMG: . <15><12>/END PASS’ #/ 


412 
051501 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 


a a i i i i i i i i i a it i 


& 


000100 EXTMSG: #B1T6,a$TKS ENABLE TKB INTR. 
001112 SERTTL zANY ERRORS 


7BR IF NONE 
013650 -ERRTOT TYPE TOTAL ERROR MESSAGE 
001112 MO SERTTL,~(SP) : TOTAL ERRORS 


#1 ,MASKNM TEST IF MORE UNITS 
1$ ;BR_ IF 


ME SGD ; TYPE BAD UNITS MESSAGE 
BADUNT , =(SP) :GET BAD UNITS 
TYPE IT IN BINARY 
SENULL ENSURE ALL DATA GETS OUTPUTED 
PC,CTRLCG TEST FOR CONTROL C/G 
LOGIC TEST AGAIN 





DIAGNOSTIC 
001100 
002712 
000400 
173476 


000400 
173460 
005760 


001100 
002712 
000001 
000002 


001362 


173160 
173154 
177640 
000003 


002200 
000007 


G 3 
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MNCDO BYTE STROBE LOOP 


HIGHLO: #STACK SP 
PC ,FIXADR 


1$: 
2s: 


3$: 


3$ 
PC,CTRLCG 
BR 1$ 
MNCDO TEST MODULE LAMP LOOP 
MOV STACK, SP 


3$ 
PC,CTRLCG 
TEMP 
2s 
1$ 
- SBTTL C/G HANDLER 
CTRLCG: a$TKS 
BP 2s 
CHA 


a$TKB,CTR :GET C 
#177640,CTRCHA ;MASK 


;LOAD STACK POINTER 
;F1IX ALL OTHER ADRS. 
;LOAD COUNTER 
;CLEAR HIGH BYTE 

; DELAY 


;LOAD COUNTER 
;CLEAR LOW BYTE 
:DELAY 


TEST FOR CTRL C/G 
;LOAD STACK POINTER 
FIX ALL OTHER ADRS. 
;LOAD INITIAL VALUE 
;LOAD DELAY LOOP 


‘LOAD OUTPUT REGISTER LAMPS 
: DELAY 


:DELAY 


CHANGE THE OUTPUT DATA 


TEST FOR FLAG 


HAR 
OFF BITS 


#3, CTRCHA TEST FOR CTRL C 
1$ ; F NOT 


:BR 
(SP)+ ;CLEAN STACK 
MTEST1 AND REYTPE DOT 


1$: #7,CTRCHA 
BNE 2s 


2$: PC 
CTRCHA: 


[TEST FOR CTRL G 
;BR IF NOT 

:GET SWITCHES 

:CHAR. THE OPER TYPED DURING RUNNING 


SEQ 0032 
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\ . TTY INPUT ROUTINE 


-SBTTL TTY INPUT ROUTINE 


3 SRRARARRRARRERRERERE REE AERA AAA R ARERR AERAAREARRARERREREERARE ERS 


; ;NUMBER OF UL a IN QUEUE 


T:TTY KEYBOARD QUE 
STKQEND=. 


3*TK INITIALIZE ROUTINE 
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
= *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


T*CALL: 
;@ JS PC, STKINT 


* 


STKINT: STKCNT CLEAR COUNT OF ITEMS IN QUEUE 

MO #STKQSRT ,STKQIN 3 IMOVE THE STARTING ADDRESS OF THE 
STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & eae POINTERS. 
#STKSRV ,@ATKVEC 3 INITIALIZE THE KEYBOARD VECT 
#200, ,@ATKVEC+2 ;;‘ BR’ +? 
a$TkKB 7: CLEAR DONE F 
a meta 


006040 
006042 
000060 
000062 
172772 


7 ENABLE TTY KEYBOARD INTERRUPT 
;sRETURN TO CALLER 


3*TK SERVICE ROUTINE 

[*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*IT IN THE QUEUE. 

s*IF THE CHARACTER IS A ‘‘CONTROL-C*' (“C) STKINT IS CALLED AND 

; *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL~C’’ RESTART ADDRESS (MTEST1) 


a$TKB,-(SP) 33PICKUP THE CHARACTER 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


#*C177, (SP) 
(SP) #3 

1$ 

,SCNTLC 

PC. $TKINT 
(SP)+ 
MTEST1 

(SP) #7 


MSWREG , SWR 
6$ 


#32. ,$TKCNT 
3$ 


, SBELL 
(SP)+ 


5$ 
(SP) ,#23 


zeSTRIP THE JUNK 
21S IT x” ie C? 


BRANCH IF NO 
23 TYPE A CONTROL-C (“C) 
BOARD 


IF NO 
T-SWR SELECTED? 
SWR CHANGE 


iis THE QUEUE FULL? 
:BRANCH IF NO 
: IRING THE TTY BELL 
23 CLEAN CHARACTER OFF OF STACK 


sEXIT 
::1S IT A CONTROL-S? 
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Y INPUT ROUTINE 


32$ BRANCH IF NO 
172664 a$TKS 3 DISABLE TTY she pe INTERRUPTS 
(SP)+ AN F STACK 


172656 : asTkS A CHAR 

BP 31$ *:LOOP UNTIL ITS THERE 
172652 a$TKB,-(SP) 33GET THE CHARACTER 

177600 #°C177, (SP) ":MAKE IT 7-BIT ASCII 
(SP)+ 21 3315 IT A CONTROL-0? 


BNE 31 H IF NO 
172630 MOV #100, a$TKS : ;REENABLE TTY KEYBOARD INTERRUPTS 


STKCNT 2: COUNT THIS CHARACTER 
(SP) ,4140 1S IT UPPER CASE? 


4 BRANCH IF YES 
(SP) #175 HIS IT A_SPECIAL CHAR? 
4$ CH IF YES 


#40, (SP) 

(SP) +, @$TKQIN ; PuT IT I 
STKQIN ;sUPDATE THE POINTER 
 peaaemesh epaamataas 32GO OFF THE END? 


: sBRANCH_IF NO 
MOV WSTKQSRT ,STKQIN ;;RESET THE POINTER 
5$: : sRETURN 


LL ARAAARAAAARARERERAERAEERERAEERERERRERAERREREERERAEREEREERERERRRERH 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
“*CALL WHEN OPERATING IN TTY INTERRUPT MODE . 
022737 000176 $CKSWR: CMP ASWREG , SWR 1S THE SOFT-SWR SELECTED 
001124 15$ = EXIT IF NOT 


BNE 
172536 TSTB a$TKS 
BPL 1 


S$ 
172532 MOVB  aS$TKB,-(SP) +: 
177600 BIC a cir? (SP) t:MAKE IT 7-BIT ASCII 
CMP (SP) #7? t:1S IT A CONTROL-G? 
BNE 2s 21F NOT. PUT IT IN THE TTY QUEUE 


33 RERAAAEAAAAEAAAAAAEAAAAAEEAAEEAAAAAAEAEERAAAARAAAAERAEEARAAARAERERAEEEEEEE 
s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY enw SERVICE 
+ *ROUT INE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CAL AS A RESULT OF A 
: *CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
123727 és: CMPB SauTos et 77ARE WE RUNNING IN AUTO-MODE? 
001674 BEQ 2s 33 H IF YES 
005726 (SP)+ tr CONTROL-G OFF STACK 
004737 006104 PC. STKINT FLUSH THE TTY INPUT QUEUE 
005077 asTKS DISABLE TTY KEYBOARD INTERRUPTS 
112737 00000 #1, $SINTAG tISET INTERRUPT MODE INDICATOR 


-$ENTLG : ECHO THE CONTROL-G (*G) 
SWREG, -(SP) si8h 


PAS ae a kkk kk dk tk th hd ot th ot od ot ot ot ot 


eee ee Ne Ne a ee ee ea ee ee ee ee ee ee ee ee es ee ee ee ee ee a ee ee a ee ae ee ee ae ee a ae a ee ae ee a eee ee 


Gi EE 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


RODS et of 2 SS BB DS DS SS 


TYPEOU 
VivPE-<OCTAL ASCII CALL DIGITS) 
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TTY INPUT ROUTINE SEQ 0035 


007354 SMNEW ;sPROMPT FOR NEW SWR 
198: 3;CLEAR COUNTER 
;;THE NEW SWR 


CL 
172434 7$: 37 CHAR THERE? 
BP. sz1F NOT TRY AGAIN 


172430 MOVB = a$TKB, - (SP) ::PICK UP CHAR 
177600 #°C177, (SP) *:MAKE IT 7-B1T ASCII 


000003 (SP) 43 3218S 1T A CONTROL-C? 
BNE 9$ 7 BRANCH IF NOT 
007324 -SCNTLC 37 YES, ECHO CONTROL-C (“C) 
000006 ~SP 2: CLEAN UP STACK 
001135 SINTAG,#1 pe aeog Me TTY KEYBOARD INTERRUPTS? 
000100 #100, a$TKS +: ALLOW TTY KEYBOARD INTERRUPTS 
002200 : MTEST1 3 CONTROL-C RESTART 
000025 : (SP) #25 2215 a A CONTROL-U? 
BNE 10$ H IF NOT 
007331 , :3YES, ECHO CONTROL-U (“U) 
000006 : #6,SP ; IGNORE PREVIOUS INPUT 
SILET" S TRY IT AGAIN 
000015 : 22S af A <CR>? 
H IF NO 
000004 :iYES, IS IT THE FIRST CHAR? 
;BRANCH IF YES 
006002 172314 


000006 ‘ 
001165 : SCRLF 
001135 000001 | fin ee TTY KBD INTERRUPTS? 


BNE NOT 
000100 172272 ‘ MOV 33 TTY KBD INTERRUPTS 
011740 
000060 ? 
YES 
IF YES 
000060 33 P-OFF ASCII 
000002 2318 as THE FIRST CHAR 
BEQ HIF YES 
33NO. SHIFT PRESENT 
ie CHAR oer TO MAKE 


ROOM NEW ONE. 
; 3KEEP COUNT OF CHAR 


000067 


000002 
177776 


BR 
001164 : i : TYPE 2<CR><LF> 
BR 77 SIMULATE CONTROL-U 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1?) 
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TTY INPUT ROUTINE 


FARRAR RAARARERAER EERE REEERERAEAEERERERERAEREARRARREEERERRRERRRRRRRERE 


:STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


RDCHR 3:GET A CHARACTER FROM THE QUEUE 
RETURN HERE 3 CHARACTER IS ON THE STACK 
isWITH PARITY BIT STRIPPED OFF 


SP) ,~(SP tine = THE PC AND 
SP) ,2(S 3s THE P. 
) 23GET READY FOR A_ CHARACTER 
SP) T NEW PS ON STACK 
reus, -(SP) 7:PUT NEW PC ON STACK 
3;=POP NEW PC AND PS 


— 7;WAIT ON A CHARACTER 


STKCNT 3;DECREMENT THE COUNTER 
3STKQOUT, 4(SP) 23GET ONE CHARACTER 

$TKQOUT UPDATE THE POINTER 
STKQOUT ,#STKQEND” "32DID IT 7 OFF OF THE END? 


2s ; BRANCH IF 
#STKQSRT,STKQOUT 7ZRESET THE "POINTER 


WOITTISITITITILIII LITT T TITLE t ttt ttt 


:THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


” RDLIN z INPUT A STRING FROM THE TTY 
RETURN HERE *SADDRESS OF FIRST CHARACTER "yn BE ON THE STACK 
+: TERMINATOR WILL BE A BYTE OF ALL 0°S 


( 
4( 
—e 


R3,-(SP) 
(SP) 


007260 : #STTYIN,RS ; DRESS 
007320 : #MSTTYINe32. .RS : ;BUFFER FULL? 

4$ 32BR IF YES 
3:G0 READ ONE CHARACTER FROM THE TTY 
MOVB (SP) +, (R3) ; CTER 
000177 : #177, (R3) 
BNE 5$ 


NO 
(SP) 1S THIS THE FIRST RUBOUT? 
6$ IF NO 
000134 MOVB #'\,9$ TYPE A BACK SLASH 
007256 9 
177777 MOV #~1, (SP) 23 SET THE RUBOUT KEY 
: R :BACKUP BY ONE 
007260 MP ? ity 13 STACK EMPTY? 


;;BR_IF YES 
007256 ee £285 Vee” TYPEOUT THE DELETED CHAR. 


007256 
a$ 'GO READ ANOTHER CHAR. 
(SP) :{RUBOUT KEY SET? 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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TTY INPUT ROUTINE SEQ 0037 


B 7$ ;7BR IF NO 
000134 007256 #'\,9$ 37 TYPE A BACK SLASH 
007256 9s 


(SP) ::CLEAR THE RUBOUT KEY 
000025 : #25, (R3) i218 CHARACTER A CTRL U? 


BNE 
007331 SCNTLU 33 TYPE A CONTROL ‘U"’ 
000022 : #22, (R3) 

BNE 3$ 


H IF NO 
(R3) :;CLEAR THE CHARACTER 
001165 -SCRLF zTYPE A ‘‘CR'' @ ‘LF'’ 
007260 $TTYIN za TYPE THE INPUT STRING 
$ 23 Ate ANOTHER CHACTER 


BR 
001164 : $QUES 

BR is +:CLEAR THE BUFFER AND LOOP 
007256 : (R3) 9S +:ECHO THE CHARACTER 


007256 ‘ 
000015 #15, (R3)+ 23 CHECK FOR RETURN 
2s LOOP IF NOT RETURN 

177777 SICLEAR RETURN (THE 15) 
001166 -SLF eT YPE A LINE FEED 

LEAN RUBOUT KEY FROM THE STACK 

: RESTORE. R R3 
;sADJUST THE STACK AND PUT ADDRESS OF THE 

oe FIRST ASCII CHARACTER ON IT 


7 RETURN 

9$: 8 of ne Ala FOR ASCII CHAR. TO TYPE 
STTYIN: .BLKB 32. 7 ;RESERVE 32. BYTES FOR TTY INPUT 
SBELL: <207><377><377> ;: FOR BELL 

/*C/<15><12> ss 

/*U/<15><12> 

/*G/<15><12> 

<15><12>/SWR = 


/ NEW = 


#STTYIN,4(SP) 


-EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


FRAAAAAAAAAAARARARARAEREEEAEAARAAEARERAEERAERAEERRRERERERAERERKEEE EEE 
+ STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
i #AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
AND LOAD THE ERROR FLAG cSemeL SG INTO DISPLAY<15:08> 
isthe SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
SW14=1 LOOP ON VEST. 
INHIBIT ITERATIONS 
LOOP R 
COOP ON TEST IN SWR<7:0> 
3; SCOPE=I0T 


RN a 9 Sh Ss SS SS Ss SS Ss Ss SS Ss Ss SS Ss SS SS SS SS SB BS YY BS BB YS BH YS TH OY SS OS 


ee ee a ee te te te it et et et ttt ted 
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SCOPE HANDLER ROUTINE 


SSCOPE: 
104410 CKSWR ::TEST FOR CHANGE IN SOFT=SWR 
004737 005760 JSR PC, CTRLCG 
040000 1$: BIT #B1T14,aSWR ;LOOP ON PRESENT TEST? 
BNE SOVER “VES IF SW14=1 
-#AHHRASTART OF CODE FOR THE XOR TESTERMANHN 
$XTSTR: BR 6$ ;1F RUNNING ON THE Be TESTER CHANGE 
<STHIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
@VERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
#5$,aWERRVEC = ;SET_FOR TIMEOUT 


a#177060 OuT XOR? 
(SP) +, a#ERRVEC 7 SRESTORE THE ge VECTOR 
SSVLAD :GO TO THE NEXT TEST 

5$: (SP)+, (SP)+ TICLEAR THE STACK AFTER A TIME OUT 
(SP) +, a@#ERRVEC senna on THE ERROR VECTOR 

BR °$ ON THE PRESENT TEST 
6$:;MHAMHEND OF CODE FOR THE XOR™ iESTERMANAR 
171470 BIT #81T08 ,aSwWR :3LOOP ON SPEC. TEST? 


;;BR IF NO 
001102 @SWR ,STSTNM Z:0N THE RIGHT TEST? SWR<7:0> 
Q SOVER $3 F YES 
SERFLG 
3$ 


ees NO 
001103 SERMAX, SERFLG :3MA + ERRORS FOR THIS TEST OCCURRED? 
171432 ; SLOOP ON ERROR? 
;7BR IF NO 
001106 7S: SET LOOP ADDRESS TO LAST SCOPE 
SOVER 


s:ZERO THE ERROR FLAG 

33CLEAR THE NUMBER OF ITERATIONS TO MAKE 
1$ ESCAPE TO THE NEXT TEST 
21 111, a@SwR 33 : INAIBI vl TERAT IONS? 
SPASs iF FIRST PASS OF PROGRAM 


SICNT 
STIMES,SICNT 
SOVER 

#1, SICNT 

ts al -STIMES 


STSTNM,STESTN 
),SLPADR 


(SP) > SLPERR 22 SAVE Ss 
SESCAPE A THE ESCAPE FROM ERROR ADDRE 
#1, SERMAX Y ALLOW gy A ERROR ON NEXT TEST 
STSTNM, 7} aed 7:DISPLAY TEST NUMBER 
SLPADR , (SP) ti4 +  o4 RETURN ADDRESS 

; MAX. NUMBER OF ITERATIONS 


gggees 
g288e% 


S38 
Oo 
No— 


gg 
& 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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SCOPE HANDLER ROUTINE SEQ 0039 


; SUBROUTINE TO CONVERT THE UNIT MASK INTO UNIT # 
013737 001376 007702 WHICHU: MOV MASKNM, Mie GET CURRNET UNIT 
012737 000000 001446 MOV ITBD ; PRIME THE UNIT 
006237 007702 10$: 11 ; SHIFT 
001404 :BR IF DONE 
005237 001446 [UPDATE BAD TYPEOUT VALUE 
000772 BR 1 


118: 

12$: RTS PC 

-SBTTL ERROR HANDLER ROUTINE 

Ps FARRAR AERERRAERERRAERRERERRERERREREREKERERERREEEREERREREREERERRERKEK 

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
2 *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO SERRTYP ON ERROR 

+ * THE SWITCH OPTIONS any tens BY THIS ROUTINE ARE: 

:*SW15= 1 HALT ON ERROR 

3 *SW13=1 INHIBIT ERROR TYPEOUTS 

; #SWO9=1 LOOP ON ERROR 

7” 

3* N 7 ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: 


000000 
000207 


7zTEST FOR CHANGE IN SOFT~SWR 
PC,CTRLCG TEST FOR CTRL C/G 
MASKNM ,, BADUNT 


PC ,WHI CHU ;DETERMINE UNIT # 
SERFLG : 


33 RO 
STSTNM,@DISPLAY ;;D TEST NUMBER AND ERROR FLAG 
SERTTL zz INC THE ERROR COUNT 
SS eknaee 37;GET ADDRESS OF ERROR INSTRUCTION 
aSERRPC, SITEMB ;:STRIP AND SAVE THE ERROR ITEM CODE 
#B1T13, aSwR 22 SKIP TYPEOUT IF SET 
BNE 20$ ;SKIP TYPEOUTS 
010110 PC, SERRTYP +:G0 TO USER ERROR ROUTINE 
001165 ~SCRLF 
000001 MAPTENV, SENV Se pen gy | es MODE 
001114 Yam t:SET IT ITEM NUMBER AS ERROR NUMBER 
010754 SR a” -SATY ; REPORT FATAL ERROR TO APT 
:ZzAPT ERROR LOOP 
38 T ON ERROR 
3 SKIP IF CONTINUE 
33 T ON ERROR! 
sz TEST FOR CHANGE IN SOFT-SWR 
001000 3 sa1T00 20m 7;LOOP ON ERROR SWITCH SET? 


7;BR IF NO 
013716 SLPERR, (SP) ;ZFUDGE RETURN FOR LOOPING 


: BR 22$ 
171100 ; aSWR 
BPL 3$ 


Cae tame Tce ate Eat hate Late Ei di fe Te Sat, at et ee at ce ae a a ce) 
ee Ne Ne Ne Ne a Ne Se Se ee ee es ee Se ee ee ee a ee ee ee 
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A. ERROR HANDLER ROUTINE 


001162 4$: _ SOR IF ha ESCAPE ADDRESS 


NON! 
013716 001162 SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
022737 005514 : WSENDAD.Q#42 —— ;ACT=11 AUTO~ACCEPT? 
001001 BN 6$ CH IF NO 


6$: 
RTI > ;RETURN 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


REESE IOS IAAI IOIIIEIICIIIOIIIIOIOIIOII IOI ITO TOT IIR 

SATHIS ROUTINE USES THE “ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ ($ERRTB), 
>*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYP 


000002 


-$CRLF 72''CARRIAGE RETURN'' & ‘LINE FEED"’ 
RO,-(SP) 33SAVE RO 

RO 3sPICKUP THE ITEM INDEX 
a4$1TEMB,RO 


010124 001004 1$ 331F ITEM NUMBER IS ZERO, JUST 
32 TYPE THE PC OF THE ERROR 
010126 SERRPC ,-(SP) 3-SAVE SERRPC FOR TYPEOUT 
;sERROR ADDRESS 
010132 2260 TYPE=-OCTAL ASCII(ALL DIGITS) 
000445 BR 3 


OUT 
; ADJUST THE INDEX SO THAT IT WILL 
ee WORK FOR THE ERROR TABLE 


RRA ARA RRR ARARARAAR AA AARARAR 
ed ad at ot 8 2s 2 a ff) SJ SS SI I SS 
ee td © ht ee it a 


RO 
001254 #SERRTB RO 32FORM TABLE POINTER 
010162 MO (RO)+,2$ 7:PICKUP ‘ERROR MESSAGE’' POINTER 
3$ :SKIP TYPEOUT IF NO POINTER 
+ TYPE THE "ERROR MESSA 
: -WORD 0 RROR st. POINTER GOES HERE 
001165 - SCRLF I 'CARRIAG RETURN" INE FEED"’ 
010200 : (RO)+,4$ + ¢PICKUP DATA HEADER’’ POINTER 
5$ sSKIP TYPEOUT IF 0 
ZITYPE THE ‘DATA HEADER’' 
: . 0 33" DATA HEADER’ POINTER GOES HERE 
001165 Pe ‘isAvE RI RETURN’’ & "LINE FEED" 
(RO)+,R1 ; sPICKUP "DATA TABLE’’ POINTER 
9$ IF NO DATA TO BE TYPED 
(RO)+,RO 7:PICKUP ‘DATA FORMAT’* POINTER 
(RO) + 73" ‘OCTAL’* OR "DECIMAL" 
7$ 7:BR IF DECIMAL 
a(R1)+,-(SP) 3:SAVE a(R1)+ FOR TYPEOUT 
8$ 32G0 TYPE--OCTAL ASCII(ALL DIGITS) 


013146 MO a(R1)+,-(SP)  :;SAVE @(R1)+ FOR TYPEOUT 
010232 104405 ::G0 TYPE--DECIMAL ASCII WITH SIGN 


Ft ae tae tm hin eae ta a an Tan at et et i et a 
eee el ee ee ed ed ed ed nd = 
eer Nee Ne ee ee ee es ee ee ee ee ae ee ee ee 





C 4 
CVMNE~A MNCDO DIAGNOSTIC MACY11 27(654) 19-SEP-78 09:02 PAGE 16-2 
. ERROR MESSAGE TYPEOUT ROUTINE 


8$: o" 3318S THERE ANOTHER NUMBER? 


Gg ;;BR IF NO 
010260 -11$ si TYPE TWO(2) SPACES 
010244 000764 BR 6$ 3;;LOOP 


010246 9$: (SP)+,R1 SEE a tcae R1 
012600 10$: (SP)+,RO sRESTORE RO 
"alee 17 CARRIAGE RETURN'' & "LINE FEED"’ 


RTS p 
11$: ~ASCIZ / 7 MOC SPACES 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DDR SEIS SIIIOIIOII IOI IOC IOIOIIITIOIIIOIOI IOI IORI IISA ISA ISAM 
z*THIS ROUTINE IS USED TO = A 16-BIT BINARY NUMBER TO A 6-DIGIT 
= *OCTAL (ASCII) NUMBER AND TYPE IT 
: x$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;*CALL: 
NUM ,-(SP) 7 NUMBER TO BE TYPED 
7sCALL_FOR TYPEOUT 
yet je 8 FOR NUMBER OF DIGITS TO TYPE 


2 ::1=TYPE LEADING ZEROS 
+: Q=SUPPRESS LEADING ZEROS 


7 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TYPOC 


:*CALL: 
; MOV NUM ,~ (SP) 3; ;NUMBER TO BE TYPED 
3:CALL FOR TYPEOUT 


+ 
— HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM, -(SP) 3 NUMBER TO BE TYPED 
TYPOC 3;CALL FOR TYPEOUT 


: a(SP) ,~(SP) 3sPICKUP THE MODE 
010507 MO 1(SP) ,SOF ILL :¢LOAD ZERO FILL SWITCH 
$ R OF DIGITS TO TYPE 
; ADJUST RETURN ADDRESS 


BR $TYPON 
000001 010507 : 33SET THE ZERO FILL SWITCH 
000006 1 MO #6, SOMODE +1 3eSET FOR SIX(6) DIGITS 
000005 : - | ITERATION COUNT 


QRRARRR RAR 
Ne 2 SS 
ae we yew ew a 


i 


32 SAVE_RS5S 
010511 5 32:GET THE NUMBER OF DIGITS TO TYPE 


000006 it rei IT FOR MAX. ALLOWED 
010510 sion IT FOR USE 
010507 SOFILL, R4 3:GET THE ZERO FILL SWITCH 
000012 12(SP) ,R5 try THE INPUT NUMBER 

R3 ;:CLEAR THE OUTPUT WORD 


1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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(1) 0370 
(1) 010372 
(1) 010374 
(1) 010376 
(1) 010400 
(1) 010402 
(1) 010404 
(1) 010406 
(1) 010412 
(1) 010414 
(1) 010420 
(1) 010422 
(1) 010424 
(1) 010426 
(1) 010430 
(1) 010434 
(1) 010440 
(1) 010444 
(1) 010450 
(1) 010454 
(1) 010456 
(1) 010460 
41) 010462 
(1) 010464 
(1) 010466 
(1) 010470 
(1) 010472 
(1) 010500 
(1) 010502 
(1) 010504 
(1) 010505 
(1) 0506 
(1) 010507 
<1) 010510 
672 

(1) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 010512 
(3) 010512 
(3) 010514 
(3) 010516 
(3) 010520 
(3) 010522 
(1) 010524 
(1) 0530 


DIAGNOSTIC 
BINAR 


Y 


010510 
177770 


000002 000004 


020200 
000020 
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TO OCTAL (ASCII) AND TYPE 


1$: ROL RS ;zROTATE MSB INTO ''C'' 
BR 3$ 3:60 DOM 
2$: ROL R5 3; FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 Hh LSB OF THIS DIGIT 
DECB SOMODE ; TYPE THIS DIGIT? 
BPL 7$ IF NO 
BIC #177770,R3 “GET RID OF JUNK 
BNE 4$ sz TEST FOR O 
TST RG 3; SUPPRESS THIS 0? 
BEQ 5$ 77BR IF YE 
4$: INC R4 7 DON'T SUPPRESS ANYMORE 0'S 
BIS #'0,R3 7zMAKE THIS DIGIT ASCII 
5$: BIS #* RS s7MAKE ASCII ty NOT ALREADY 
MOVB R3,8$ 7 SAVE FOR TYPING 
TYPE ,8$ 3:G0 TYPE THIS DIGIT 
7$: DECB SOCNT : COUNT BY 1 
BGT 2s ‘3 IF MORE TO DO 
BLT 6$ 33 DONE 
INC R4 :; INSURE LAST DIGIT ISN'T A BLANK 
BR 2$ 3:G0 DO THE LAST DIGIT 
6$: MOV (SP)+,R5 s RESTORE RS 
MOV (SP) +,R4 s RESTORE R4 
MOV (SP)+,R3 s RESTORE R3 
MOV 2(SP) ,4(SP) :zSET THE STACK FOR RETURNING 
afi (SP)+, (SP) 


RETURN 
8$: -BYTE IST ORAGE FOR ASCII DIGIT 


-BYTE 3 
SOF TLL : -BYTE 23ZERO FILL SWITCH 
SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


rit iii iii iii iii tii 
:RTHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


7*CALL 
:* MOV NUM ,-(SP) ;PUT THE BINARY NUMBER ON THE STACK 
3* TYPDS +360 TO THE ROUTINE 
STYPDS: 
MOV RO,-(SP) 7zPUSH RO ON STACK 
MOV R1,-(SP) 72PUSH R1 ON STACK 
MOV R2,-(SP) 72PUSH R2 ON STACK 
MOV R3,-(SP) 7zPUSH R3 ON STACK 


R5.-(SP) ACK 
MOV #20200,-(SP) *SET BLANK SWITCH AND SIGN 
MOV 20(SP) .R5 ‘GET THE INPUT NUMBER 


SEQ 0042 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


1$ ;;BR IF_INPUT IS POS. 


R5 
000055 000001 #*=,1(SP) $3 
1$: RO +s ZERO THE CONSTANTS INDEX 


010726 #SDBLK ,R3 33;SETUP THE OUTPUT POINTER 
000040 # ,(R3)+ 33SET THE FIRST gn a A TO A BLANK 


: R2 
010716 SDTBL (RO) ,R1 
: R1,R5 


33FORM THIS BCD DIGIT 
;;BR_IF DONE 
3; INCREASE THE BCD DIGIT BY 1 


3;;ADD BACK THE CONSTANT 
tg BCD DIGIT=0 


FALL THROUGH IF 0 
‘ibe it yt LEADING 0°S? 


TBR IF NO 
177777 1(SP) ,-1(R3) 77 YES--SET THE SIGN 
6 #°0,R2 7zMAKE THE BCD DIGIT ASCII 

#* ,R2 ae MAKE IT A SPACE IF NOT ALREADY A DIGIT 
R2,(R3)+ :;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(RO) + ; JUST INCREMENTING 
RO,410 CHECK THE TABLE INDEX 
2$ 3:60 DO THE NEXT DIGIT 
8$ 3:G0 TO EXIT 
R5,R2 2 2GET THE LSD 
6$ GO CHANGE TO ASCII 
(SP) + ; sWAS THE LSD THE FIRST NON-ZERO? 


BP’ 9$ :BR IF NO 
177777 + 177776 -1(SP) ,-2(R3) z:VES-=SET THE aage FOR TYPING 
9$: = - 7 ¢SET THE TERMINATOR 
+, 


(SP)+.R3 
(SP) +.R2 
(SP)+.R1 POP STACK INTO R1 
(SP) +.RO :3POP STACK INTO RO 
010726 $DBLK ‘NOW TYPE THE NUMBER 
000002 3(SP) .4(SP) ‘ADJUST THE STACK 
(SP) +, (SP) 
::RETURN TO USER 
$DTBL: 


10. 
010726 000004 SDBLK: .BLKW 4 
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.SBTTL APT COMMUNICATIONS ROUTINE 


DEERE EISIIISIEIISISI IIIS IO IIIISIIIIIOIOIIIDIOIUIIIUIDIUIIOIUIIIINIISISUIOO ID 
112737 011202 : MOVB #1,$FFLG 32TO REPORT FATAL ERROR 
Leas 000001 011200 : #1, SMFLG 33TO TYPE A MESSAGE 


BR SATYC 
112737 011202 : #1, SFFLG 3;TO ONLY REPORT FATAL ERROR 


RO,-(SP) 3=PUSH RO ON STACK 
R1,~-(SP) ;¢PUSH R1_ON STACK 
SMFLG oP MDT: TYPE A MESSAGE? 


5$ NO BR 
001210 ae MAPTENV , SENV : : [OPERATING UNDER APT? 
001211 #APTSPOOL ,SENVM ;; soe NOT: at MESSAGES? 


NO 
a4(SP) ,RO GET MESSAGE ADDR. 
000004 #2,4(SP) ; ;BUMP RETURN ADDR. 
: SMSGTYPE 77 SEE IF DONE W/ LAST XMISSION? 

1$ scIF NOT: WAIT 

RO, SMSGAD ;7PUT ADDR IN MAILBOX 

~~ :zFIND END OF MESSAGE 

at 23 SUB START OF MESSAGE 


RO, $MSGLGT ; 
et SITELL APT TO TAKE MSG. 


a4 (SP) ,4$ ::PUT MSG ADDR IN JSR LINKAGE 
000002 #2,4(SP) “BUMP RETURN ADDRESS 
177776 177776, (SP) 77PUSH 199776 ON STACK 
011526 PC. STYPE +:CALL TYPE MACRO 


ee Ne ee ete te es 


Oo 


011202 SFFLG 34 REPORT FATAL ERROR? 
BEQ 12 :31F NOT: BR 
3 ; RUNNING UNDER APT? 


:1F NOT: BR 
‘FINISHED LAST MESSAGE? 
ie NOT: WAIT 


tS SS PF BS Ss SW PP PP PS SS ve 


;BUMP RETURN ADDR. 
eTELt net TO TAKE ERROR 


feleleleleleleleleleleleleleleleleleloelele) 

a a ae ne ee ee ee ee ee ee ee ee) 
— 

SHRISSSVEK KERB ESS 


SDRATAL FLAG 


ates 
N= 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
if 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee Nee a ee ee eee ee ee ee ee ee ee ee ee ee ee ae a ee ee le oe es 


~~ e W O O  S 


2EVEN 
APTSIZE=200 
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. APT COMMUNICATIONS ROUTINE 


APTENV=001 


“SBTTL POWER DOWN AND UP ROUTINES 


DRESSED II nn Rint t 
;POWER DOWN ROUTINE 

011350 : WSILLUP ,Q@MPWRVEC ;;SET FOR FAST UP 

000340 #340, a#PWRVEC+2 2 ePRIO: 7 
) RO ON STACK 

R1 ON STACK 

R2 ON STACK 

R3 ON STACK 

R4 ON STACK 

RS ON STACK 

@SWR ON STACK 


6 ;;SAVE SP 
#SPWRUP, @APWRVEC ;;SET UP VECTOR 
-72 7 HANG UP 


LEAR ERE RERERRERE EERE EAR ERREE ERA AEERRAEREREKERAEKKRERRERRERE 
“POWER UP ROUTINE 
$PWRUP: MOV WSILLUP A#PWRVEC :;SET FOR FAST DOWN 
MO SAVR6, SP i SP 
‘WAIT LOOP FOR THE TTY 
1$: szWAIT FOR THE INC 
BNE & -:0F WORD 


0 
2 
4 
6 


é STACK 0 RO 
#SPWRON, aAPWRVE C” i SET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC+2 ie PRIO:7 

[REPORT THE POWER FAILURE 
PWRMSG ::POWER FAIL MESSAGE POINTER 
(PC) +, (SP) 7;sRESTART AT BEGIN 
BEGIN 7 zRESTART ADDRESS 


: 3 THE POWER UP SEQUENCE WAS STARTED 
72 ee BEFORE THE POWER DOWN WAS COMPLETE 


0 THE SP HERE 
-ASCIZ <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> 


QOAARRAARARARA 
td ad od ed ed ed ead ed 
wwe wwervevewwv 
WW 
EESERS 


™~s 
o 


011422 000 
011424 
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CVMNEA.P11 READ AN OCTAL NUMBER FROM THE TTY 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


RRA AAA 
SSTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
[*CHANGE IT TO BINARY. 

>*CALL: 

RDOCT ;;READ AN OCTAL NUMBER 

RETURN HERE LOW ORDER BITS ARE ON TOP OF THE STACK 
SIHIGH ORDER BITS ARE IN $HIOCT 


011424 : (SP) ,=(SP) ;zPROVIDE SPACE FOR THE 
16666 MO 4(SP) ,2(SP) 73 INPUT NUMBER 
— gt 3zPUSH RO ON STACK 


R2,-(SP) : 

READ AN ASCIZ LINE 
(SP)+,RO :7;GET ADDRESS OF 1ST CHARACTER 
Rt 7 ;CLEAR DATA WORD 


R2 
(RO) +,=(SP) PICKUP THIS CHARACTER 
3$ self ZERO GET OUT 


R2 
177770 #*C7, (SP) zSTRIP THE ASCII JUNK 
 ataee 3zADD_IN THIS DIGIT 


: LOOP 
(SP)+ 3;CLEAN TERMINATOR FROM STACK 
000012 R1,12(SP) 7¢SAVE THE RESULT 
011524 R2,$HIOCT 
(SP)+,R2 3:POP STACK INTO R2 
(SP)+,R1 3:POP STACK INTO R1 
(SP)+,RO 3;POP STACK INTO RO 
TI : ¢RETURN 
011524 000000 S$HIOCT: .WORD 0 HIGH ORDER BITS GO HERE 
; CAUTION THE FIRST 4 LOC. ARE OVERLAYED TO LOWER CPU LEVEL 
“SBTTL TYPE ROUTINE 


{RRRRA AAA A RRR AAA RARER AAA AAA AAAAAAARRRAARERRAAR AERA R ERATE 

[ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 rt 

"THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

; 1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*CALL: 

7*1) USING A TRAP INSTRUCTION 
ion TYPE -MESADR 

** 


ie TYPE 
:* ME SADR 


77MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


te Ee he el a ee ee ee ee ee 
Oe es ed td ot 0 a sf 
ee ee ee ee ee ee ee ee ee ee a es ed 
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ah Ah 4h 4) 
S 


a so ss SS SS YY I 


SoCooCooooooooo 


Fo te hen han en tan tan tan, eat hea Tat a Ten tam, an ean, an, a ee am, a ee a et ae ae, te, et a a a a, ae a a a a a a a a a ae 
ee ee mee ee el ee em ee ek ed od od od a I I 
ee ee ee ee ee ee ee ee ee eee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee wee we a a 
— 
_ 


jelelelelelejlejloj=) 
at ad ad od od od ed ed ed 
ded ed ed ed ed ed ed ed 


SERSRSINE SEEKS ERED 


gee 
SERS 


SRSSRORTE 


DIAGNOSTIC 
TYPE ROUTINE 


105737 001157 
100002 


000002 
000001 


000100 


011576 
010744 


000040 


000002 
000011 
000200 


012004 


011740 
001156 


001154 
000001 


004737 011740 
eh 4 012004 


112716 000040 
737 011740 
132737 000007 
001372 
005726 
es 
105777 167204 
100375 
116677 000002 
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001210 
001211 


001211 


012004 


167176 


61$: 
62$: 


2s: 
60$: 
3$: 
4$: 


HORIZONTAL TAB 


8$: 
9$: 


STYPEC: 
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JSR 
DECB 
BR 


MOVB 
JSR 
BITB 
BNE 
TST 
BR 
TSTB 
BPL 
MOVE 


STPFLG 
1$ 


ae 0 
#APTENV, SENV 


62$ 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
rents 


#APTCSUP , SENVM 


6 

(RO) +,-(SP) 
4s 

(SP) + 
(SP)+,RO 
#2, (SP) 
on. (SP) 
CRLF, (SP) 
S$ 


(SP)+ 


SCHARCNT 
2s 


PC ,STYPEC 
SFILLC,(SP)+ 


2s 
SNULL ,~ (SP) 
1(SP) 

6$ 

PC .STYPEC 
SCHARCNT 

os 
PROCESSOR 
#* ,(SP) 

PC .STYPEC 
#7, SCHARCNT 
SE 

(SP)+ 

2s 

asTPs 
STYPEC 
2(SP) ,aSTPB 


i318 THERE A TERMINAL? 
IAL mE IF NO TERMINAL 


72SAVE RO 
33GET ADDRESS OF ASCIZ STRING 
ee ING IN APT MODE 

:NO,GO CHECK ak ¥* oo 
:: SPOOL MESSAGE T 


NO,GO CHECK FOR. CONSOLE 
7 7SETUP MESSAGE et FOR APT 


sz YES,SKIP TYPE OUT 
oi CHARACTER TO BE TYPED ONTO STACK 
F IT ISN'T THE TERMINATOR 
ar TERMINATOR POP IT OFF THE STACK 
* REST ORE RO 
; ADJUST RETURN PC 
URN 


+ BRANCH IF <HT> 
BRANCH IF NOT <CRLF> 


;7POP <CR><LF> EQUIV 
72 TYPE A CR AND LF 


Sh CHARACTER COUNT 
T NEXT CHARACTER 


CTER 
T TIME FOR FILLER CHARS.? 
GO GET NEXT CHAR. 
OF FILLER CHARS. NEEDED 
CHAR. 


NULL 
NULL NEED TO BE TYPED? 
wt POP THE NULL OFF OF STACK 


PE A NULL 
T COUNT AS A COUNT 


aaeeae 
3 
aE 
a 


T 


BeBe 


ty 


> ai 


BIT" 05 


ashen Ace TAB WITH SPACE 
22 TYPE A SPACE 
: ;BRANCH IF NOT AT 

iT oP 


ST 
7;POP SPACE OFF STACK 
3:GET NEXT CHARACTER 
77WAIT UNTIL PRINTER IS READY 


;zLOAD CHAR TO BE TYPED INTO DATA REG. 


SEQ 0047 
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122766 000015 000002 #CR,2(SP) ii CHARACTER A CARRIAGE RETURN? 
001 BNE 1$ CH IF NO 

105037 012004 3: YES==CLEAR CHARACTER COUNT 
0004 BR STYPEX T 

OSfacs 000012 000002 1S: = r 2315 oe Be LINE FEED? 


Q oe 
1Osee INCB 3=;COUNT THE CHARACTER 
000000 SCHARCNT : . WORD 3 CHARACTER COUNT STORAGE 
000207 STYPEX: RTS 


-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


3 FRRAAAAAARARAARAERAEARERERERAEERRERREREEERERRREEREEREERERRRKEEREEE 


7*THIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 16-81T 
ee elpaeiate NUMBER AND TYPE IT. 
*® 3 


NUMBER , - (SP) 7 NUMBER TO BE TYPED 
si TYPE IT 


R1,-(SP) th ~ ON THE STACK 
6(SP),R1 22GET T NPUT NUMBER 
23SET i SO _CAN KEEP TRACK OF THE NUMBER OF BITS 
3;SET CHARACTER TO AN ASCII ‘0"’. 
3-GET THIS BIT 
: =DONE? 


TINO--SET THE CHARACTER EQUAL TO THIS BIT 
3:G0 TYPE THIS BIT 
3-CLEAR ‘'C’* SO CAN KEEP TRACK OF BITS 
oA DO THE NEXT BIT 
. POP THE STACK INTO R1 
2(SP) .4(SP) T:ADJUST THE STACK 


(SP) +, (SP) 
7; RETURN TO USER 
$BIN:  . 0,0 ;zSTORAGE FOR ASCII CHAR. AND TERMINATOR 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
i 


ee ee ek ek td ed od ot ws sf) 
ee a a ee a 
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-SBTTL TRAP DECODER 


RRRRAA RARER AREER R AERA EEARARERARAARAAARAREERA ARERR ERA 
SRTHIS ROUTINE WILL Ag a THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
[*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,~(SP) 3: SAVE_RO 
000002 MOV 23GET TRAP ADDRESS 
) KUP BY 2 


33GET RIGHT BYTE OF TRAP 

R POSITION FOR INDEXING 
012120 STRPAD(RO),RO ;; INDEX TO TABLE 
RO 32G0 TO ROUTINE 


37 THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 

STRAP2: MOV (SP) ,-(SP) 7zMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) szMOVE THE PSW DOWN 
RTI sZRESTORE THE PSwW 


-SBTTL TRAP TABLE 


Fn tap tn hai en i at ee a fe, a at a et ei ee, ee, ee ea 
ee a kk a ed td 8“ 2s ts es VL) 
ee eh a ah ae 


ped | TABLE CONTAINS eo ADDRESSES OF THE ROUTINES CALLED 


THE ‘'TRAP’' INSTRUCTI 
$TRPAD: 
$ 


TRAP+1(104401) TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


TYPE DECIMAL NUMBER (WITH SIGN) 
3; CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


3 CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 


77 CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOFT-SwR 

77 CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
007024 3; CALL=RDLIN TRAP+1 (106618) TTY TYPEIN STRING ROUTINE 
011424 $RDOCT ;;CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
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** 
;*THIS ROUTINE WILL PROTECT THE PROGRAM 
seF RON INTERUPTS (BAD ONES). 


{+ THE TRAP CATCHER IS SET UP FOR 
3 . WORD +2 
is JSR PC, RO 


ILLEGAL INTERRUPTS OR INTERRUPTS TO THE WRONG VECTOR 
:*GOTO THE VECTOR AND PICK UP THE ‘'.+2°' AS AN ADDRESS 


;*AND °4700°' AS NEW STATUS. 

>*THE .+2 AS A PC WILL CAUSE EXECUTION OF THE ‘JSR PC,RO'’ (AN ILLEGAL INSTR.). 
[*AND TRAP TO LOCATION '%''. IN LOCATION 4 WE HAVE A 

:*POINTER HERE. IF THIS CONDITION CAUSES A TRAP TO LOC. 4. 

;*WE WILL REPORT IT IN THE SAME MANNER THAT WE WOULD 

;*REPORT ANY OTHER ERROR. 

:*IF A BUSS the TRAP DID OCCUR AND CAUSE A TRAP TO 4. 

3*WE WILL HALT 


012150 011637 012356 : (6), TRTO GET WHERE WE CAME TO. 
012154 162737 000004 012356 S #4,TRTO FROM READ ADDR. 


012162 023727 012356 001000 TRTO,41000 ;DID TRAP FROM LESS THAN ADDR. 1000? 
012170 003402 2s ;NO=CONT INUE . 


012172 000000 : 7A BUSS ERROR TIME OUT TRAP BROUGHT US HERE. 
ADDRESS CONTAINED IN TRTO. 


012174 000776 1$ DON'T ALLOW CONTINUE. 


012176 016637 2 4(6) , TRFRO GET TRAPPED FROM ADDR. 
012204 062706 ADD #4 ,SP ADJUST THE STACK POINTER 
012210 122737 CMPB #16,$TSTNM ;LESS THAN INTERRUPT TESTS? 
012216 003402 BLE 3$ 7NO MUST BE WRONG VECTOR. 
i SSSSSSSSSSSSSSSESSSSSSSS>>ERROR<<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

012220 104006 ERR 6 ZERROR! ILLEGAL INTERRUPT OR 

INTERRUPT TO WRONG VECTOR. 

71F TEST NO. IS LESS THAN 16,1TS 

LIKELY (BUT NO EXCLUSIVELY) TO BE A 

HE DEVICE UNDER TEST. 


; THEN ID SUSPECT THE revece 
; INTERRUPTED ILLEGALLY 
SIF THE ADDRESS THE INTERRUPT 
; VECTORED TO IS OUTSIDE OF THE 
ASSIGNED TO THE DEVICE 
*D SUSPECT THAT THE 


706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
733 
734 
735 
736 
737 
738 
739 
740 
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DEVICE PUT THE WRONG INTERRUPT 
VECTOR ON THE BUS DURING THE INTERRUPT 
;PROCESS. 


NOTE: 
FOR THIS. Con - DON'T USE 
"LOOP ON ERROR 
TALSO EXPECT THAT THE INTERRUPT TEST TO 
[WILL REPORT THAT THE DEVICE DIDN'T 
; INTERRUPT. 
;FOLLOW THE RECOMMENDED PROCEDURE 
IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
ZFOR LOOPING ON TEST. 


3 anny «| Weereaneneeneste*s RROR<<<$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


3$: (SP)+, (SP)+ 
001176 SPASS 31S THIS 7 FIRST PASS? 
4 REPORT 


$ ce ° ON'T 
013714 VTMSG TELL OPE 
001202 MOV SUNIT,-(SP) 


012222 


NOP 
013750 -VTMSG3 ;TYPE ‘EXPECTED INTR. AT ** 
001354 MOV 60D INV, -(SP) : 3 SAVE DOD 


YPE 
8 33 TYPE 3 DIGIT(S) 
: 1 “TYPE LEADING ZEROS 
014000 VTMSG1 ; TYPE ** RECEIVED INTR. AT s 
012356 MOV TRTO,-(SP) 


a a el 
oS a 
~~ we 


1 TYPE LEADING ZEROS 
014030 T tty YPE RESTART ING TEST’’ 
001356 167040 4$: SADJUST VECTOR 

167034 MOV 700, aD001 


004700 
012356 
000003 
001354 


000002 
166530 @$LPADR START TEST OVER AGAIN. 
: 0 [CONTAINS ADDR. WE TRAPPED OR I wg TO. 
TRAPPED OR 


JISIRIIIIF 


[CONTAINS ADDR. WE INTR, FROM. 
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.SBTTL ASCII MESSAGES 
"ASCII \L = LOGIC TEST WITH NO TEST MODULE CONNECTED\ 


PRIMEQ: 


12 


5 , 
D = LOGIC TEST WITH TEST MODULE CONNECTED\ 


-12 
= OUTPUT TEST MODULE L.E.D. LOOP\ 


12 
= PULSE OUTPUT VERIFY LOOP\ 


12 
= GET NEW SWITCH REGISTER VALUE\ 


15,12 
\B = BASE OR VECTOR ADDRESS CHANGE\ 


15,12 
\H = HELP THE OPERATOR AND RETYPE THIS LIST 
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DOT: -BYTE 15,12 
sASCIZ /TYPE THE ‘'TEST CHARACTER’ THEN DEPRESS ‘RETURN KEY'’ / 


(DIGITAL DOES NOT EXIST <BUS ERROR> CHECK ADDRESS SWITCH 


(DIGITAL OUT) DATA REGISTER ERROR\ 


(DIGITAL OUT) STATUS REGISTER ERROR\ 


(DIGITAL OUT) INTERRUPT ERROR\ 


(DIGITAL UNEXPECTED INTERRUPT\ 


(DIGITAL EXISTING UNIT FAILED TO RESPOND\ 
052111 





CVMNE~A MNCDO 


014124 


DIAGNOSTIC 
ASCII MESSAGES 


051122 


051120 
020115 
052103 


041516 
044504 
020114 
051447 
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052125 
051511 
052440 
040506 
052040 
050123 


ERRTOT: . 


MESGD: 


VTMSG: 


VTMSG3: 


VTMSG1: . 


VIMSG2: . 


-ASCIZ 


\MNCDO =SINCORRECT I.D. VALUE FOR MNCDO\ 


<200> /PROGRAM DETECTED / 


\ MNCDO (DIGITAL OUT)'S \ 


/ ;TOTAL ERROR COUNT = / 


/ ;BAD UNITS / 


<200>/MNCDO (DIGITAL OUT) UNIT &/ 


<200>/EXPECTED INTERRUPT AT / 


/ RECEIVED INTERRUPT AT / 


<200>/PLEASE CHECK VECTOR SWITCHES/<200> 


RESTARTING LOGIC TEST/<200> 


/UNIT ERRPC OUTCSR OUTDAT/ 


SEQ 0054 
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014132 051503 


004522 
052101 


OUTADR GOOD BAD/ 
OUTADR GOOD BAD/ 


OUTADR/ 


TO FROM ADRS / 


<15><12>/MNCDO (DIGITAL OUT) BASE ADDRESS </ 


<15><12>/MNCDO (DIGITAL OUT) VECTOR ADDRESS </ 


>? / 
15,12 
\MNCDO (DIGITAL OUT) TEST MODULE MUST BE CONNECTED TO THE MNCDO MODULE\ 
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014574 


«BYTE 7? 
-ASCII MUST BE CONNECTED TO THE TESTER/ 


052040 
051505 
012 -BYTE 15,12,0 
0 ASIE £ of 
-BYTE 15,12,0 
-EVEN 
UNI TBD ,SERRPC ,OCSR,DOR.0 
UNI TBD ,SERRPC ,DOR , SGDDAT , $BDDAT ,0 
UNI TBD ,SERRPC ,OCSR,$GDDAT , $BDDAT ,0 
UNI TBD ,SERRPC ,OCSR,0 
012356 : UNI TBD, SERRPC, TRTO, TRFRO,O 
001362 : UNI TBD ,SERRPC , TEMP, SUNIT,0 
000 : -BYTE 0,0,0,0.,0,0.0,0,0,0 


000 
000 


883s 
—— O— 
— aati It Ow 
— =%—W—Oo— 
Ba AAASSOO 


014775 
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171260 60 
000000 

000000 
000000 
014656 
000000 


ADDW1 1= 
ADDW1 2= 
ADDW13= 000000 
ADDW14= 000000 
ADDW15= 000000 


nnnnnnnnnn 


174 
60 
60 
8294 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
332 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
6744 
197 
6744 
60 
60 
60 
184 
60 


AVECT2= 000000 
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CVMNEA.P11 CROSS REFERENCE TABLE SEQ 0058 


001444 1824 597 669* 
70 22 
675 


~N 


—— 
cos 
YIN 
a 


377 


SEQ 


SH) 


PS PSPSPS SPSS PPPS PPP Pete sett t} 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
1 
1 
3 


Oo 
o 
as 


579 580* 770 771% 774* 
766 770* 772s 773* 774 
408* 411* 421* 465* 498* 
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CVMNEA.P11 CROSS REFERENCE TABLE SEQ 0059 
DOT 013004 221 7954 
DSWR = 177570 194 60 197 
DTI 014666 63 8334 
DT2 014700 65 8344 
DT3 014714 67 71 8354 
DT4 014730 69 8364 
DT6 014740 73 8374 
DT7 014752 75 8384 
DWARF 001360 1564 190* 192* 210 230* 236* 279 355 495 504 517 548 
EMTVEC= 000030 194 197* 
EM1 013074 63 7984 
EM14 013526 71 8044 
E 13203 65 7994 
EM3 013253 67 8 
EMG 013325 69 8014 
EM6 013371 73 8024 
EM7 013442 75 8034 
T 014464 335 8224 
ERRTOT 013650 591 8074 
ERRVEC= 000004 194 197* 257* 275* 276* 365* 371* 372s 375* 376* 652* 
EVER 001442 1814 219* 277 288* 289* 291 293 568 
EXTMSG 005550 586 5884 
FIXADR 002712 220 296 3034 348 608 621 
FOUND1 013573 281 8054 
FOUND2 013616 284 
GNS = ekeeee 204 5 
GTSWR = 104407 204 246 647 6854 
HIGHLO 0056 243 6074 
HT = 000011 194 681 
IOTRD 012150 41 275 371 375 7074 
IOTVEC= 000020 194 197* 
F = 000012 194 1 
LOGIC 002424 207 237 2544 601 
LOGICO 2420 231 2534 
001376 1634 255* 297% 574* 594 661 669 
MESGD 013677 596 8084 
MSGCAB 014603 212 8264 
014471 253 8234 
MTEST 002174 211 2144 233 
MTEST1 002200 209 2154 247 249 349 644 651 
001344 1484 303 366 383* 384* 385* 387* 390* 394 402* 403 412 427* 
431* 445% 449" 451* 454% 464* 469* 478* 482* 484* 487* 499 522 
528 535 540* 542 570* 833 835 836 
OCSR1 001346 1494 393« 400* 409* 422* 466* 571* 
PC =%000007 19 203* 220* 296* 329% 348* 575* 586* 600* 608* 617* 621* 630* 
648* 651* 652* 668* 669* 670* 674* 675 681* 
PIRQ = 177772 194 
PIRQVE= 000240 194 
PRIMEO 012362 214 7814 
PRO = 000000 194 
PR1 = 194 
PR2 = 000100 19 
PR3 = 000140 194 
PR4 = 000200 194 


CVMNE-A_ MNCDO 
CVMNEA.P11 


STACK = 
STKLMT= 
SWR 


nae 


seEEtELEs 


MEWN-O 
: 


z 


nnnnnnnnnnnnnnnnnnnn 


egeceeecereee 


DIAGNOSTIC MACY11 27(654) 
CROSS REFERENCE TABLE 


Seeseeeseseeeeeeeeeete 
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CVMNEA.P11 CROSS REFERENCE TABLE 


000020 
000040 


—— 00 


SSLILeeeeoeLVSeeeeoeys 


509* 511% 622* 625 631* 838 
195* 208 


768 772 7778 


SVP PLL LNA VLLSLLLLEs 


550* 
554 


vECOUT 014415 
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CVMNEA.P11 CROSS REFERENCE TABLE 


013714 
14000 


359 361 377* 379* 380* 381* 383* 384* 
ast. rit 500 523* 525 528* 530 535s 


00 
005 
00121 


=3yy 
ARE 
SE8 


esgess 
Tees aBss 
= Sooas 
sugessegegg 


83sss 
NES 
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CVMNEA.P11 CROSS REFERENCE TABLE 


011202 
00 681 
681 
377* 380 381* 384* 385* 387* 391* 395 
209 525 529* 530 536* 537 


604 
604 
604 
604 
6744+ 

604 
604 
604 
604 
604 
604 
59 

604 
604 
604 
604 


ceseecesediy 


3804 3814 3834 3844 3984 4074 
5164 547# 5664 


38 


758 
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CVMNEA.P11 CROSS REFERENCE TABLE 


685 


gereee 
geeeee 


vw 
wh 


11 
11 
1150 


geessesesesssgcces 
Ci etato et eto 
BS RSIeRsSusee 
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CVMNEA.P11 CROSS REFERENCE TABLE 


604 
604 309 318 341 347* 


OCAT= eeeeee 


= 014776 


SASTA= eeeeee 
-$x = 001000 


404 42n 464 524 57# 584 594 
6704 6724 6744 675 6774 681 8314 
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CVMNEA.P11 CROSS REFERENCE TABLE 


294 363 370 377 
450 483 502 527 


194 
194 
i9# 
194 
194 


S85—— 
SYN eess 


nen. Sw ~ 
N 


LQ’ 


me 
Rp Ip 
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CVMNEA.P11 CROSS REFERENCE TABLE 


=_ 
BE 


2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
1 
, 


QLVVaaaeaee Vea VelVegeeeey 
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ADCB 682 
ADD 259 
775 
ASL 377 
ASLB 672 
ASR 663 
BCC 672 
BEQ 197 
385 
595 
BGE 652 
BGT 586 
BHI 652 
BIC 236 
BICB 224 
BIS 216 
B1SB 4 
BIT 263 
BITB 197 
E 711 
BLO 651 
BLOS 651 
BLT 651 
BMI 262 
BNE 197 
308 
612 
759 
BPL 629 
BR 191 
669 
CLC 682 
CLR 189 
390 
484 
672 
CLRB 381 
CMP 197 
395 
645 
CMPB 204 
681 
COM 379 
DEC 511 
DECB 671 
EMT 19 
HALT 669 
I 195 
INCB 652 
IOT 19 
JMP 47 
582 


DIAGNOSTIC 
CROSS REF 
318 570 
379 513 
674 
204 206 
387 396 
651 652 
651 671 
359 383 
289 380 
670 
652 669 
674 681 
722 
671 672 
278 472 
204 209 
328 356 
616 627 
638 651 
194 197 
670 671 
190 193 
401 402 
487 488 
675 679 
392 399 
204 265 
435 448 
651 652 
225 228 
721 
586 611 
681 
675 681 
204 260 
669 H 
48 49 
586 601 
220 296 
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ERENCE TABLE 


572 
574 


385 
427 


240 
608 


243 
617 


247 
621 


671 


249 
630 


674 


380 
558 


773 


274 


651 


679 


381 
569 


287 
652 


681 


383 
586 


675 


349 
669 


SEQ 0068 


719 


384 
590 


373 
674 
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CROSS REFERENCE TABLE 
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T 
CROSS REFERENCE TABLE SEQ 0070 


417 
380 


ERRORS DETECTED: 0 
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CVMNEA.P11 SEQ 0071 


*CVMNEA , CVMNEA/CRE =CVMNEA 
RUN-TIME : - 1 SECONDS 
K 


CORE USED: 





